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VUELTA A COMENZAR 

Tras el interludio estival, he aquí un 
nuevo número de la revista 
predilecta de los usuarios del 
estándar MSX. 

En este número, observaréis dos 
novedades: La primera, tal vez un 
poco dolorosa, es el aumento de 
precio de la revista. La segunda, 
mucho más agradable, la constituye 
la publicación en las páginas 
centrales de un super-poster 
desplegable a color, que no es otra 
cosa que el mapa del videojuego 
que está causando furor en toda 
Europa, SUPER-RAMBO 
ESPECIAL. 

La primera -dolorosa- novedad, es 
inevitable. Nuestros lectores saben 
sobradamente que los productos 
de nuestra Editorial, siempre se 
han mantenido en la tónica del 



prestaciones, pero 
subidas de papel y costes de 
obligan, muy 



que aún así es ostensiblemente 
inferior al de otras similares. 
La segunda -agradable- novedad, 
constituye una auténtica primicia, 
ya que este juego todavía no se ha 
comenzado a distribuir en España, 
por lo que constituye una auténtica 
novedad. De todos modos, al habla 
con los importadores, hemos 
sabido que muy próximamente 
estará disponible en el mercado 
nacional. 

Y esto sólo es el preludio de una 
serie de novedades que se avecinan 
con la "rentree", y de las que 
podemos anticipar una de ellas: 
Una página de POKES DE VIDAS 
INFINITAS que se publicará mes 
a mes a partir del próximo. 
Hasta entonces. 
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i A PROGRAMACION 
1|| ESTRUCTURADA (H) 

|U Los tipos de estructuras 
más utilizados en el di- 
seño algorítmico y algún 
que otro consejo intere- 
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Línea directa 



ejemplo 
Land, Circu 



cirte que los programas i 
KONAMI para MSX, disti 
buidos en España en excluí 
va por SEKMA, no se come 



Estos piratas, con su forma 
chapucera de trabajo, empa- 
ñan la imagen del USX, sem- 
brando el mercado de progra- 
mas que funcionan sólo en 
ciertos MSX, ya que no si- 
guen las normas que deben 
seguir los programas del es- 
tándar, y que cumplen a la 
perfección los programas ori- 

Como solución a tu caso 
hemos de decirte que busques 
en el futuro programas origi- 
nales, con todas las garantías 



¿Cómo se puede hacer 
mover, en cualquier direc- 
ción, un dibujo hecho con el 



¿Cómo funcionan las ór- 
denes POKE, VPOKE, 
PEEK y VPEEK? 

¿Qué hay que pone en la 
etiqueta que hay que inser- 



Lo sentimos mucho; pero 
o se puede. Un dibujo crea- 
o con el CML sólo puede 



PPER e : %o le Jamases 



me, como te decimos, no l 
lodrás lograr con el GML. 
Una solución consiste e 



los , 



■rn. Je 



modo que formen una sola fi- 
gura de gran tamaño. Basta 
entonces desplazar todos los 
sprites al mismo tiempo. Esta 
última tarea puede hacerse en 
BASIC, pero si quieres elimi- 
nar totalmente la posibilidad 
de parpadeo deberás realizar 
una pequeña rutina en CAÍ. 

La otra posible solución, 
sólo accesible desde C.M., 
consiste en almacenar el di- 

y luego volcarlo muy rápida- 
mente en posiciones sucesi- 
vas de la pantalla, logrando 
.-i ~i j .— . ... 




7nTvRAM u"ns- 
n POKE (o VPOKE) 



En la memoria del ordena- 
dor, cada posición tiene una 
dirección, de modo que se 
pueda acceder a ella indivi- 
dualmente. ta instrucción 
POKE (o VPOKE) incorpora 
el dato especificado a esa po- 

instrucción que debas utilizar 



ción PEEK (o VPEEK) per- 



por ejemplo, de esta forma: 
PRINT PEEK (dir) o bien 
A=PEEK (dir) 

donde dir es la dirección de 

queremos consultar. 

En cuanto a tu última pre- 
gunta, el espacio "Número de 
recepción" no debe ser relle- 
nado por los concursantes, 
sino que lo rellenamos noso- 

cilita la clasificación de las 
cintas en todo el proceso que 
hasta su publicación o 



Tengo un HB-F500P de 
Sony y, después de haberlo 
llevado al servicio técnico 
por una avería, se me inicia- 
liza en SCREEN 0 con 80 
columnas a diferencia de 
como lo hacía antes (37 co- 
lumnas). ¿Qué puedo hacer 
para remediarlo? 

¿Cómo se puede utilizar 
para un programa el reloj/ 
calendario incorporado? 
¿Para qué sirven las senten- 
cias SET TITLE, SET 



PROMPT, SET BEEP y 
SET SCREEN? 

El SCREEN 6 tiene i. „ _ 
ginas. ¿Qué quiere decir 



Pedro López Treiño 



SET SCREEN graba en la 
memoria permanente (RAM 
con baterías) la configuración 
actual de la pantalla, de 
modo que el ordenador vol- 

se. Es decir, si te colocas en 
SCREEN 1, con WIDTH24, 

Iza's C °¿ reS ins"t e rucMn ^ET 
SCREEN, lodos estos datos 
se grabarán, de modo que el 

SCREEN 1, con WIDTH 24 
y con los colores deseados. 
Ahora bien, esto sólo funcio- 
na en ordenadores MSX-2, 



modo de SCREEN, anchu, 

margen y texto), teclas de 
función ON/OFF, sonii ' 
las teclas ON/OFF, tipo de 
impresora, velocidad de gra- 
bación de los programt 
cassette y el modo de vi: 
zación. Te recomend 



Algo similar hace el res 
de instrucciones sobre las qi. - 
nos preguntas. SET TITLE 
permite que introduzca 

la máquina. SET PROMPT 
te permite modificar el men- 
saje "Ok" del BASIC y utili- 
zar la palabra que quieras, 
vomo "Vale." o "¿Qué hay de 
nuevo viejo?'. Por úlf 
SET BEEP te permite n 
ficar el tipo de sonido y i 



lumen del pitic 
VRAM. Ct Que u 



tenia 4 páginas significa que 
en la VRAM puede haber 4 
dibujos simultáneamente en 
ese SCREEN. Sólo puedes 

tor, pero puedes realizar has- 
ta 4 dibujos, e intercambiar- 
los, de forma instantánea, 
cuando lo desees. Un ejemplo 
de la utilización de las pági- 
nas de memoria apareció en 
el número }2-33 (Julio) de 

MSX-EXTRA, dentro"7e"la 
sección específica para los 
MSX-2, "MSX Segunda Ge- 
neración". 



Tengo un problema con 
dos programas que publica- 
ron hace un par de meses: el 
programa "Convoy" y el 



sados gracias al "Test de Lis- 
tados" cuando voy a ejecu- 
tarlos aparecen los siguien- 



FILE NOT OPEN 



VOY, á pl 

IN 1231 

1230CO=8:C1=11:FOR 
N=1TO25:PUTSPRITE1, 
(CX,96),C0,1:PUTSPRITE 
2,(CX,96),C1,2. 

En el programa PALO- 



El TEST DE LISTADOS 

para detectar los errores co- 
metidos al transcribir los pro- 
gramas de la revista a vues- 
tros ordenadores. 

Sin embargo, no es perfec- 
to. El test de listados tituba 
el sistema de CHECKSUM 
(suma de control) para com- 
probar que los datos sean co- 



Normalmente el único 
error no detectado por el test 
es el de intercambio de letras 
o dígitos; pero éste es fácil- 
mente detectable con sólo ob- 
servar detenidamente el lista- 
do. 

En caso de no encontrar- 
se la fuente del error es una 
buena práctica borrar de 
nuestro programa la línea 

rior y posterior, y volverlas a 
transcribir en su totalidad. 

Te explicamos todo esto 



<e ¡as ' pataVraTsPRTTE esté 
ve el TEST DEGUSTADOS 



•). Evidentemente 
, e se ha producido 
^ error en la verificación del 

go "DrSmE" y al cargarlo ^Es^Tt'rror sólo puede 
sale el siguiente mensaje en producido por dos causas. 
la pantalla. primera, y la más lógica ta 

CHECKSUM ERROR bien es que se trate de 
BO3O30303OOOO4141 DRO- error de carga. Intenta a¡ 
ME PRG " tar adecuadamente el azin 

¿Qué significa este men- de tu cassette, así como el ^ 
saje? ¿Por qué sale? ¿Qué lumen, y asegúrate de que los 
hay que hacer para arreglar- cabezales estén limpios. Tras 
lo? esto el programa debería car- 

gar correctamente. 

Puede ocurrir, aunque esto 
es menos probable, que se 
trate de un error en la anta, 
Qué significa exactamente en cuyo caso te cambiarían el 
ese mensaje creo que es un programa por otro nuevo en 
enigma que acosa a más de la tienda en la que lo adqui- 



no detecta el error, que ha- 
brás escrito sin darte cuenta 
algo como SPIRTE, y que al 
transcribirlo a la carta que 
nos envías corregiste sin dar- 
le cuenta ese mismo error. Es 
esta la única explicación 
coherente, ya que la línea que 
nos has enviado escrita a 
mano es totalmente correcta, 

Respecto al programa PA- 
LOMITAS, debe tratarse de 
un error similar, aunque en 
este caso no hay que buscarlo 
en la línea 1480, sino proba- 
blemente en la línea en que 
se define la variable M5$. 

puedas solucionar los proble- 



CARTUCHOS DE MEMORIA 



¿Qué he de hacer para al- 

cartucho? ¿Hace falta algún 
periférico especial, o basta 
con insertar el cartucho? 

Dispongo de un cartucho 
"virgen" HBI-55. En el fo- 
lleto de instrucciones del 

denadores HB-55P y HB- 
75P. ¿Es este cartucho com- 
patible con mi HB-20P? 

Lisardo Rodríguez López 
ORENSE 

En el mercado español t 



ia permanente. Lo único 
existe en la actualidad 

los cartuchos de amplía- 
de memoria RAM. 



menta la memoria RAM to- 
tal del sistema. Para el usua- 
rio que programa en BASIC 

utilidad, ya que la memoria 
máxima utilizable por el BA- 
SIC permanece inalterable. 

Sin embargo los programas 
en C.M. podrán hacer uso de 
esta memoria adicional. No 



ría extema y la interna con la 
que ya cuenta el equipo, a ex- 
cepción de la localización de 
esta memoria en los SLOTS. 



dos los MSX, ya que los peri- 
féricos MSX son totalmente 
compatibles entre las diferen- 



Tengo un ordenador HB- 
201P y he comprado el jue- 
go "Green Beret". Tras la 
primera pantalla se me pide 
que pulse SPACEBAR, y no 

ordenado". CSta ^ 

¿Qué es un moderno aco- 
plador acústico? 

¿Qué son las tarjetas Soft- 
cardyBeeCard? 

David Martínez López 



Pensábamos que era a 



CEBAR 
dora, la 

blanco. Esperamos 
puedas continúe 
sin gobiernas. 



juek tecla SPA- 



No hay que confundir -aun 
me mucha gente lo haga- en 
re MODEM y acoplador 



gados de comunicar entre ¡ 
ordenadores separados grar. 



la línea telefónica. En estt 
caso, como si de dos persona: 
se tratara, los ordenadores si 

cambiándose programas, da 

Los acopladores acústico: 
convierten las señales del or 
denador en ruidos similares l 
los del cassette convencional 
Estos "ruidos" son los que st 
envían a través de la línea te 
lefónica para que el acoplador 

inteligibles por el ordenador. 
Los acopladores acústicos 



Tablón de anuncios* 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de software original es 
un acto delictivo perseguido por la ley. 

Vendo ordenadores X'PRESS 
MSX y SONY HB-F500P, im- 
presora plotter Sony, unidad de 
disco Sony con sistema operati- 
vo. Regalo programas como 
Dbase-H, Ensamblador Champ, 
Procesador de textos. Francis- 
co Simón. Tel.: (91) 645 83 61. 
Móstoles. MADRID. CP. 1. 
Vendo revistas MSX. José Vte. 
PlaneUes Alagarda. C/. Jesús 
Morante Borras, n.°211. 46012 
VALENCIA. CP.' 



B-75P er 



n ¿TOSTa^ 

González Martínez O. Dr 
Profesor Severo Ochoa, 12,4°. 
9.'. 46010 VALENCIA. TeL: 
(96) 360 06 46.CP.1. 
Compro ampliación de memo- 
ria de 64 Kb HBM-64 u otra 



Vendo o 



-A. 2» 
2116567. CP.l. 

'rj^Tigiíts 

of amsterdam, chop- 
per h, badmax, lay- 

DOCK, NEMESIS, etc. Cada 
uno 2.000 ptas. Antonio Mu- 



rando Martín, Who Dares 



__ KONAMI t 

ptas. Martín López Corredoira. 

Pe"--- 




ro a de°Kclí'al L TeTf(972) 9 50 
9657. CP.l. 

Vendo ordenador Sony HB- 
55P + ampüación a 32 Kb + 
TV Philips B/N + Plotter Sony 
PRN-c41 por 50.000 Ptas. Ma- 
tías Zaya Méndez. Málaga. 
Tel.: 4454 29 de6a9 déla tar- 
de. CP.l. 

Vendo ordenador Sony Hb- 
101P con embalaje original, 
pansión de memoria HBM- . , 
cassette Panasonic RQ-8100, 



it 5 n' U M ? sx' < 5 



>s ufx). 



GOZA. Tel.: (976) 5 



23003 JAEN. CP.l. 
Cambio MASTER OF THE 
I AMI'S (original) pol 



der, Knight Time, Lothlor 
mrOH r s 1 Ja : vfe r rM 



Atico, 2.'. Llefía. Ba 

(BARCELONA). Tel.: (93) 
387 98 28. CP.l. 

MSX. SHimTli cl 
talunya, 64. Sant Feliu deCodi- 
nes. 08182 BARCELONA. 
CP.l. 

nadores MSX-2 para poder in- 

Club.^ergbMoi^Suá™"™ 
Iglesia Nueva n.° 13, l.°Drcha. 
Sada. La Coruña. Tlf: (981) 62 
32 55. CP.l. 

Compro .o cambio^por progra- 
rufmdad^n^o 0 "^ 



intercambiar por este libro son: 
Colt 36, Gauntlet, Boulder 
Dash II, Martiannois, Survival, 
H.E.R.O., etc. Gonzalo Már- 
quez Benítez. C/. Ntra. Sra. 
Merced s n. 14014 Córdoba. 
Tlf: 25 83 48. CP.l. 
Cambio juegos originales en 
cinta de todo tipo. Poseo entte 
otros: Camelot Warriors, Alien 
8, Fernando Martín, Green Be- 
ret, etc. No interesan listables. 

90 y 21 48°i n 3. C/. Regino Saiz 
de la Maza, n.° 6 3°A. 09005 

Cambio máquina CAPTAIN 
25 por NEMESIS o THE 
CHESS. 25 niveles de juego. 
Regalo pilas nuevas. José A. 
Treus Sieira. O Rodrigo A. de 
Santiago,51. 15010La Coruña. 



cativos, de gestión, o aplicacio- 
nes. David Rubio Riera. Avda. 
Manuel Girona 54-56. Esc. A. 
5 ° 2". 08860 CasteUdefels 
(Barcelona). Tlf: (93 ) 665 48 
94. CP.l. 

Vendo Spectrum Plus, impre- 
sora Seikosha GP-50S, cassette 
más de 120 : 



clase de juegos originales, 
seo últimas novedades. iu: 
(986)88 29 82. Oscar. CP.l. 
Vendo 20 cintas originales con 
un total de más de 150 juegos 
por sólo 10.000 ptas. Juan Car- 
los Enrique. C/. LaCarrera2-5. 
Burriana (Castellón). Cód. Pos- 
tal 12530. CP.l. 
Cambio/ vendo juegos origina- 
les para MSX. También Ínter - 

Club de Usuarios de Marín. 



ion, Phan- 
el, ele Til 



BASIC MSX 
deo de la marca Sony para el 

tareas » 



MSX. Tengo primeras 

tales como: Arkanoid, Knight 
Lore, Fernando Martin Basket, 
The Way oftheTiger, y un lar- 
go etc. Manuel Romeu Arbios. 
C/. María Rosa Molas n.° 27. 
43500 Tortosa (Tarragona). 



:1 MSX en Villa-Real 
'a C/' Fábrica ™6, 



imbio por Hardware (cartu- 
los, plotters, etc). Jesús Bied- 
ia.C/. La Miranda n.° 69. En- 
□. 3a. Cornellá. Barcelona. 
JP.l. 

Vendo Sony HB-55P+ampI¡a- 
" A ~ A ' -emoria a 32 Kb por 
s. Luis Marco. Tlf: 



dor, más de 80 programas o 
ginales, libros "Dimensii 
MSX" dngelekl y " MSX l>, 



Antonio Uceda. Tlf: (91) 

7 76 de 18:00 a 20:30 h. 

C/. Casiopea n.° 21. Getafe. 
28905 Madrid. CP.l. 

)>io 737 Flight Simulator 

(Microsoft) por Green Beret 
(Konamr). Víctor Ginés. Avda. 
Monseñor Escriba, 55-B. Bar- 
bastro (HUESCA). Tel.: (974) 
U37 07. CP.2 



corder SDC-500, ; 



0 — originales de 
, ralentizador de 

les del ordenador y del cassette.' 
Por cambio de ordenador, todo 
por 39.000 ptas. Javier Loconte 
Martín. Teí: (93) 334 47 62. C/ 
Laurel, 8, l.°-3.*. Hospitalet 
le Llobresat. BARCELONA. 



Vendo Sony HB-75P de 80Kb 
seminuevo, cables de conexión, 
manuales, revistas, varios pro- 
gramas comerciales y joystick. 
Todo por 40.000 ptas. Antonio 
Ramos. Avda. Cataluña, 18, 5 o , 
4.' Rubí. BARCELONA. Tel.: 
699 91 09. CP.2 



utilidades y selector de antena. 

Todo por ilU'tm [na, I rana- 

co Rubio. Paseo San Vicente, 
36-40, 4.°-B. 37007 SALA- 
MANCA. Tel.: (923) 23 39 46. 
CP.2 

Vendo programas MSX origi- 
nales: Head Over Heels, La 
Venganza, Panic in Vegas, Roc- 
ket Roguer, Eggy, Zoids. Tam- 
bién vendo el ubre "18 juegos 
dinámicos para tu MSX" de 

Cooperativa, 46, 5° 2.'. Sant 
Boi. 08830 BARCELONA. 
Tel.: 193 1652 1694.CP.2 
Vendo Philips VG-8020 con 
jal BASIC, 



MSXyadei 



izcaya (posible otras zonas), 
lámar de 9 a 11 noche. Tel.: 
'43)42 00 84,si no (943)6033 
I. Iosu Arrióla. AitzpÜgoeta, 
t. Mendaro. GUIPUZKOA. 



de 16 Kb (HBM-Sonv) l... 
3 .000 ptas. o bien la cambio por 
una hoja de cálculo en cartucho 




apenas usar. Además doy Da- 
mi, Dmamic^Unte're'sadosdt- 
rigirse a Feo. C/. Principe Ver- 
gara, 40. Hospitalet. (Barcelo- 
na). Tel.: (93) 337 27 22. CP.2 
Vendo ordenador Sony (32 Kb 
RAM) + cartucho de amplia- 
ción ( 16 Kb RAM) + lote de 10 
¡uegosde Konami por 11.500 

20300 GUTPUZ- 
SVI-738 



a. O. Sr. ( 



or Dynadata 



KOA. CP. 
Vendo ordenac 
X'PRESS con mi__..„ 
OMS (juegos y utilidades) 
co. También monitor T 

DM-120MR. Precios 

nir. Luis Alberto Pérez Pérez. 
C/Ebro n.° 7 5 o B. 47013 Va- 
lladolid. Tlf: (983) 235936. 
CP.2 



JACK THE NIPPER; 
GROG'S REVENGE, FUTU- 
RE KNIGHT, NIGHTSHA 



.s, gráfico: 



«¿José Car., 



._. 21830 Bonares (HUEL- 
VA). Tel.: (955) 3661 69. CP.2 
Compro ampliación de memo- 
ria RAM 64 Kb con precio a 
convenir. José Carlos ¿amacho 
Pérez. O. Larga, n.° 52. Bona- 
res. 21830 HUELVA. Tel.: 
(953) 36 61 69. CP.2 
Cambio Philips VG-8020 con 

varios juegos Konami, por ór- 

(serié ¿¡fo\Sta (seriesp" 

0 DX). Tel.: (93) 431 18 72. 
Barcelona. CP.2 

Vendo X'press SVI738 MSX 

1 Orive de 720Kb l eon discos y 

verde K-40. Todo 85.000, sólo 
ordenador 70.000 pesetas. Muy 



Basic y cables de conexión. Re- 
galo con el ordenador los si- 
guientes programas: Knight 
Mare, Soccer, La Pulga, King's 
Valley, Green Beret, Hiper Ra- 
lly, Super Cobra, Yie Ar, Kung 
Fu II. Todo por sólo 18.000 pe- 



instrucclones por 4.000 pese- 
tas. José Luis Benito Zurdo. C/ 
Segovia, 1. 05005 AvUa. ~ ' 
(918) 22 27 63, de 14 a 



CPM2 n 2 vCPmTo y lfflgS 
Basic, Cobol, Logo. 80Kb, c¡ 



deo SVI-728 MSX 80K. 
gramas éornerdaleí Tod. 



EarT'teTr 



16 4.C. 20240 Ordizia 
púzcoa). CP.2 
Vendo ordenador SONY MSX 
HB-75P 64K, grabador 



lo todo hace 4 i 

000 pesetas. Je 
n. 195) )53 59 

CP.2 

28 de 80 ks, c 
nanuales y garantía pe 
:L500 pts. Regalo gra 

riginales. Llamar de 9 
la noche al Tel.: (972) 50 



dad de disco de 3,5" y MSX-2 



gua de Val 
ladalona(B 



El basic paso a paso ■ 



.PorWillyMiragall. 



GRAFICOS 
Y GRAFICAS (II) 



La representación gráfica de 
funciones y datos matemáticos 
es de vital importancia en mu- 
chos programas, tanto científi- 
cos como de gestión. Hoy trata- 
mos este interesante aspecto de 
los gráficos MSX. 



gráficos por ordenador, hacien- 
ecial énfasis, en el dibujo "arris- 
camos hoy a hablar de las gráfi- 



mos dar un repaso a los tipos de gráfi- 
cas más habituales, así como a la forma 
en que éstas se representan y progra- 
man en nuestros MSX. 

La primera división importante que 
debemos realizar es la de gráficas de 
funciones y gráficas de datos. Las gráfi- 



Las gráficas de datos están mucho 
1 ste tipo de gráficas son las utilizadas 



zadas en economía, y en los departa- 
mentos contables de un gran número 
de empresas. Comenzaremos tratando 
este último tipo de gráficas. 

Existen muchos tipos de gráficas de 
gestión; pero trataremos tan sólo unos 
pocos, en concreto, las gráficas de tar- 
ta, las de barras y las lineales. 

GRAFICAS DE TARTA 

Este tipo de gráficas están formadas 
por una circunferencia, cuya superficie 
está dividida en sectores. Cada sector 
corresponde a una materia determina- 



TARTA PARA MSX 



10 ' *************> 



LINEAS PARA MSX 



- datos *** 



5 SCREEN 2 

T=A+B+C+D+E 
!> A1=A/T 



90 INPUT A,E 



SCREEN 2 

A>B THEN T=A ELSE T=B 
OT THEN T=C 
D>T THEN T=D 




10 



:presando de este modo su rela- 
on el total. Realizar este tipo de 
¡ríHcas es muy fácil con el BASIC 
Z, utilizando las 



Supondremos, para dar un ejemplo, 
la realización de una gráfica circular 
con 5 sectores: A,B,C,D y E. 

Lo primero que debemos hacer es 
sumar todos los valores para obtener el 
valor total. A continuación hemos de 
obtener el tanto por 1 que corresponde 
a caila uno de los scclores. Si las x ana 
bles A,B,C,D y E contienen las cantida- 
des, almacenaremos en A1,B1,C1,D1 y 



C1=C/T 
D1=D/T 
E1=E/T 



n cada variable el 



A2 = A1*2*PI 
B2 = (A1+B1)*2*PI 
C2 = (A1+B1+C1)*2*PI 
D2=(A1+B1+C1+D1)*2*PI 
E2=(A1+B1+C1+D1+E1)*2*PI 
CIRCLE (128,96), 50,15, -A2, 
-B2 

CIRCLE (128,96), 50,15, -B2, 

-a 

CIRCLE (128,96), 50,15, -C2, 




GRAFICOS DE BARRAS 



ds de datos son las gráficas de 
En este caso, cada valo^ se ^ e " 



magnitud del dato. Gracias a las ins- 
trucciones del BASIC MSX resulta ex- 
tremadamente fácil la realización de 
este tipo de gráficas. Damos como 
ejemplo a continuación la representa- 
ción de una gráfica de cinco barras ho- 

valor^m'TÍ dT deCalCUlare ' 
valor máximo de los datos: 

IF A>B THEN T= A ELSE T=B 
IF C>T THEN T=C 
IF D>TTHENT=D 
IF E>T THEN T=E 



de cada uno en la pantalla y dil 
jamos la barra correspondiente en 
pantalla. 

A1=200*A/T 
B1=200*B/T 
C1=200*C/T 
D1=200*D/T 
E1=200*E/T 

LINE (0,30)-(Al,40), 15, BF 
LINE (0,60)-(Bl,70), 15, BF 
LINE (0,90)-(Cl,100), 15, BF 



250 LINE (109.C1-1)- (111, 
260 LINE <159,D1-1)-<161, 
265 LINE (209,E1-1)-(211, 
270 GQTO 270 



10 ' *********************** 

20 ' 

30 ' BARRAS PARA MSX 

50 ' *********************** 

70 ' *** Introducir datos *** 
80 ' 

INPUT A,B,C,D,E 
5 SCREEN 2 

J IF A>B THEN T=A ELSE T=B 

1 IF OT THEN T=C 

2 IF D>T THEN T=D 
5 IF E>T THEN T=E 
5 A1=200*A/T 

) B1=200*B/T 
» C1=200*C/T 
I D1=200*D/T 
) E1=200*E/T 

I LINE (0,30) -(Al, 40) , 15, BF 
I LINE (0, 60) - (Bl , 70) , 15, BF 
~~" -<C1, 100) , 15, BF 




3 2*PI STEP PI/30 



El basic paso a paso , 



] igual que en el caso de las gráficas 
afta os incluimos un 'listado com- 
o. (listado 2). 



conjunto de puntos unidos por líneas 
rectas. La altura de estos puntos repre- 
senta la magnitud del dato que estamos 

Este tipo de gráfica utiliza para su re- 
presentación un método muy similar al 
utilizado para representar gráficas de 

cuíaTía^ít P " d" 'T' hem ° S de ° al " 
denadas de pantalla. E? método es el 
mismo que hemos seguido para calcu- 
lar la altura de las gráficas de barras, va- 
na sin embargo, la forma de represen- 
tar estos datos en la pantalla. 

PSET (10.A1) 
LINE-(60,BU 
LINE-(110,C1) 



Juntos con un pequeño recuadro, de 
nodo que sea más fácil su localización 
lentro de la gráfica. Para ello haría- 

LINE(9,A1-1)-(11,A1 + 1)„BF 
y de modo similar con el resto de 



EN GENERAL 



Pensad en los listados que incluimos 
como meros ejemplos, que hay que me- 
jorar sustancialmente para poder llegar 
a realizar un buen programa de repre- 



Realizar una gráfica matemática de 
una función puede ser muy fácil o ex- 
tremadamente complicado. Todo de- 
pende de la función que deseemos re- 

El primer problema con el que nos 
hallamos a la hora de representar una 
función es la localización de los límites 
de ésta. Por ejemplo, la función HN(x) 
devuelve en todo ir 



Una vez que conocemos con exacti- 
tud el intervalo en el que se encuentra 
la función hemos de calcular la escala 
adecuada para su representación, de 
forma que ocupe la zona de la pantalla 
que le tengamos destinada. Por ejem- 
plo, una función F(x) que varíe entre 
LIMINFv LIMSUP deheru represen 
tarse calculando las coordenadas de 
cada punto de la siguiente forma. 

Y=F(x) 

Yl = (Y-LIMINF)* 192ALIMSUP- 
-LIMINF) 

En el caso de la variación de las X, 
ocurre algo similar. Hay que aplicar la 



I.IMSUM.IMINFpor 
Ypot'x 138 V ' Clar ° CS ' a ' SUS " tUyend0 

Pero la representación de funciones 
no tiene como único problema la esca 
la. En muchos casos existen puntos en 
que la función vale infinito. ¿Cómo re- 
presentamos esto? ¿Cuál el LIMSUP si 
la función es infinitamente grande? En 
este caso hemos de decidir cuál es la 
zona de la función que deseamos re- 
presentar, ya que no podemos repre- 
sentarla en su totalidad. 

Hay que tener especial precaución 
en este caso con las divisiones por cero 
y por los Overflow (rebasar el límite 
numérico del ordenador). 

"' is, lo hemos plasmado 



plificado al máximo las expresiones, 
indicando únicamente sus resultados. 
No encontraréis, por tanto, LIMSUP y 
LIMINF. Se trata simplemente de un 
ejemplo para que podáis observar los 
resultados finales de una representa- 
ción gráfica. Intentadlo vosotros con 



EJERCICIOS: 



ejercicios relacionados, ta 



con el ordenador algún cuadro de re- 
nombre universal. Podéis utilizar para 
ello cualquiera de las técnicas que co- 

m Gráficas™ 6 P3Sa ° nUmer °' 
1.- Respecto a gráficas os propone- 



Programa . 
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PENALTY 



En los momentos finales del 
partido todo se juega er 
de penalties. Debes encajar el 
máximo número de ellos < 
do que te los marquen a 



:REEN 2,3;E0SUB mtiSPBt'grpi'AS 

-TI HE) ! KEY OFF 
H.0R!I,t,ílCL8lPin SPRITE i,t\W, 
:PUTSPRtTE l.llM.lll.ll,:!?^! 
¡M»"P E N 



re: 



14» 



¡338iC0LOR IlVM'ty l.hmtii JU 
'■iZ«3SiC«.17#it08UI 33:« 
!NE':,5I-[2«,I8!>,9,Í 
3R M TO 9¡G0SUB HWiNEITiFORI" 
: PUTSPRITE I , ( J , 217 I , 0, I : NEKT ¡ L INE 
1,81-1255,255), 1,BF 
11 RED 

OPCIONES 



!EB 



1!» SCREEN 2,2;COL0R ll,l,2:aS:«= '. 
""IONES 8';2*7ltC>»iHS0l 333» 

•1.0NE PLAYER\Z=58:C=188:G0Sue 
•"■2.TKQ PLAYERS"!C«128:60SU6 3 
338 

178 S«=INK£Y«:IF S«=" THEN 178 ELSE S 
=VAL(S»I:IF S«l THEN SCREEN 8;!NPUT'N0 

l«:W2*="CP'J-!S0T0 23! 
181 KEY OFF 

198 COLOF 1!,1,2:CLS:«.-| CONTROLES I 

"::=8e¡C=50:n-235tSOSUB 33Ill«- 

:C=62:60SUB 3328 

288 M-'l, CURSOR l CURSOR" : 2«5Í: C= 
60SU6 33I8:N»="2. CURSOR l JOVSTlCK"sC= 
128:GDSUB 33IB:N»»'3. JOYSTICf t JOYSTI 
CP:C=H 



IB 3318 



218 VI=INKEY«:IF ¥••" THEN 218 ELSE I 
■VAL'WilF V>3 OR V<! THEN 218 
28 SCREEN 8; INPUT'NOHBRE JUGADOR f|| 
»:INPiJT-NOHBPE JUGADOR 2'¡N2« 
238 ll«4tnWll,l,S)t*»>lltH[Kt,t,! 

248 REH 

258 REH PANTALLA 
268 REH 

278 COLOR 15,4,1:SCREEN 2,2 




i 15,4, 1:CL5 

2?8 m»'mAK:v\z.iy:it,-.'.':'.i.-.- 

! , :L!NEI13,43)-l24e,18e),2,BF:PAIKT(2, 

¡88 ÓPAN"C15BH15,43H248,65- 

118 DRAN'BH78,63C15tJ35HPe,38D33' 

!28 DPA» ■ BH7« , 38F7D 1 BNH70 , 45H 1 43 , 35NH 1 

, 8,65U1BE7" 

!38 DRAIfBH71,31Ht69,31Bn74,34H144,346 
177,3'H143,37' 
34Í F0RI>37 TO 55 STEP3:LINE(77,II-(14 
3,I),I3iDÜT 

N 1=8 TO 188 STEP 18;LINE(I»78,3 
N84II/18B,37),15:LINE -STEPI8,18 
NEIT 

348 FOR 1=8 TO IBSTER3;LIN£(77,37»l)-( 
78,38*1121, 13¡LINE(143,37*I)-I178,;8*I 
42),15¡NEIT 

r6H7i,38Cl5H71,45BHI49,3BH149, 

í - BH33,63C15H28, 188H235, 188H214 

!98 0RAICBH48,45H55,188H185,188H188,45 



18 CIRCLE(128,155!,?,15iPAINT(12B,155 



■<l REH 

18 JA«hJB=ll:PA»14:PB=l 
458 PE»ll!ll«llP(l)»8!P(2)"l> 

LINE1B,8>-(255,I2),1,BF:Z=18:C=2:H 
5:N»=-PENALTY 1987':60SUB 3328 
478 IF Ml*«--THENMl*=-lPLflV 
W2*«--THENH2*="2PLAY" 
498 MHll*"- , *K«iZ»ll5lC«2i60SUI 332 
8 

588 LINE(198,8)-(255,25),I,BF:Z»195iC' 
14:«=MUP-2UP-:60SUB 3328 

■■8-8'!Z=285¡C«2:G0SUB 3338 
528 RESTORE: GOSUB 1228 
538 1P«113:YP-Sf 
548 XJ-113:YJ-17S 

«■112:Y«148¡L»5 
548 <F=113¡YF.78¡SP=4 
578 REH 



580 REN 

590 ren bucle nuclear 
400 ren 

¿10 REN 

420 FOR 1=8 TO tfHiNEXT 

63» FOR 1=0 TO 30:PUT SPRITEI, (1,217!, 

l,MiKEn 

640 BEEP 

658 LINEI17Í, 1451-1228,1551, 2,BF 
448 PE'PMlIf PEO» THEN 78» 
478 IF P(1I»P(2)THEK ««■"EHPATADOS.HAB 
EIS DE REPETIR LOS T IROS" ¡ Z»0 ! C-= IM: M» 
255I60SUB 332íiPLAY"L4405CEDFAA-|FOR 1 

>0TO30¡PUTSPRITE 207l,0,3»iNEXTiFO 

RI»0TO2000¡ NEXTiLINE (0, 0) - (255, 28») , 1 , 
BFiGOTO 278 

m *iw 



68» 2>3liC 

ll))P(2l 



4?» H»21»ll 



:>T:F0R A=0TO30¡PU 
'T5PRITEA.(A,28-'),e,38!NEXT:LINE(8.01-( 
255, 2081, !,BF;RUN 

"H IF"»»I THEN PUT SPRITE 3í,(2»8,38) 
5, 18ELSEPUTSPRITE 38,1238,381,15,1» 
71» GOÍUB 132» 
30 PLAV-L306P1I#«1S8V15E" 
738 CO=0;FOR 1«» TO 58«¡N£>T 
18 FORYJ=YJ TO 145 STEP -2:G0SUB 1321 
¡GOSUB 3410¡NEXT 
758 FOR 1=8 TO 2»8¡NEIT 
748 REN DISPARO 
778 TI«E«»!Í«8 

•9¡IF XFMB0 THEN XF-33 
798 60SUB 1388 

l» IF T1HE\50=>4 THEN XF=180:GQSU6 13 
80¡6OTO 87» 

IB 354í,34»í,343íiIF0»-lTH 



OTO Ti 

ID XFU45 AND PNOI2K.1 
THEN 878 
858 60T0 78» 

84» REN HOVIHIENTO PORTERO-PELOTA 
7» GOSUB 342»¡NQ=?:DX=(XF-113I/5¡DY=- 

38 X«X»DX!Y«V*DY 

?» ON V SOSUB 357»,341Í,364I:IF CO>| 
THEN SOSUB 335» 

'1 THEN 94» 
918 IF »»2 THEN D=STICK(«I0RSTICKII)¡6 
OTO 94» 

92» HÍ-IXP-XF)\5¡I.S6NIHÍ);HO'ABS(IIOI 
¡IF NÍ<3.5THEN hí«II3,5 ELSE H0=I«HÜ 
93» IF X>XP AND RNDI4X.5 THEN D'JiSOT 
O 948 ELSE IF Í<XP AND RNDI4X.5 THEN 
D=7iXD=H0:C0"l:SP»B¡60TO 95» 



94» IF D=3 THEN XD=H8¡CO=l:S 
F D=7 THEN XD=-NQ:SP=8:C0=1 
95» IF D=70RD=3 THEN 89» 
iOSUB 134» 

97» IF Y<55 AND X>45 AND XM7Í THEN 11 

98» IF Y<2» THEN 181» 
99» IF Y>5 
EN 1050 
1»»0 SOTO 860 

1010 r«Z07 1 SP-* : GOSUB 1 3*0: 60T01 070 
1820 REN 

103? REN FUERA Y PARADA PORTERO 
1048 REN 

1050 SP=4:X=XP:Y=YP-3:IF SP=4 T HEN XP= 



ID ABSIX-XPK8TH 



1040 SOSUB 1340:60 
SNAP JA,JB:SN 



3 7458 



1100 REN S6G0OOLLL'" 
1110 REN 

1120 LINE(17»,145)-!::»,155),1,BF 

W« , 600L! , ¡I«|72:W»7 
1140 Y=207:6OSUB 1J20:SPM: I=INT(I 
rt50MWlT«4Í¡|E SP=4 THEN KP>XI 
1130 IF X>138 THEN X--158 ELSE IF 
THEN í*7i 

L«2íiG0SUB 1320l6OSUB348í:GOSUB7: 
30:P(N!«P!NI«1¡II»-STR«!PI1II* , - , »ST 
P(2))¡Z=2Í(¡C»2!H=233¡60SUB 3320 
SNftP Jñ,JB:SHAP PA, PB : H=W> ¡ .- II 

:n ««i 

1188 RESTOREiSOTO 330 
1190 REN 

1200 REN SPRITES 
1210 REN 

122» FOR 1=0 TO 10 



1240 B«»6«'CHR»(VALl"tB-»NID1!D«,9, 



13Í0 REN POSICION SPRITES 

1310 REN 

1320 PUT SPRITE 3, (XJ,¥J) ,JA,3 

133» PUT SPRITE 2, (U,YJ),JB,2 

1340 PUT SPRITE L, (X,¥),I,1 

1350 PUT SPRITE L'1,(X,Y),13,0 

1340 PUT SFRITE12, ( IP, YP) , RA, SP 

1370 PUT SFRITE11,(XP,YP),P8,SP»1 

1380 PUT SPRITE 13, (XF,YFI,3,10 

1390 P.ETURN 



10 REN DATAS SPF.ITES CODIGO 6IN 
!0 REN 

11 DATA »t»t»IHHÍ 0 IÍ|| 
II DATA 0008888888800888 
Í0 DATA 0000000010000080 
;« DATA 0088009888000800 
'0 DATA 0000000000080000 



1368 DATA 00808111 ülíífí» 



1460 DATA »»00»»»088000890 
1470 DATA 08000í0880080e?0 
16S0 DATA 000000U00000088 
1690 DATA 00«»»fll»ei08808 
1700 DSTí ffHllHUHMH 
1710 DATA 0000100010100000 
1720 DATA 0880011108110880 
i DATA 0000001010080000 . 



1770 DATA 000»»0088000J000 



fA 0081118181111000 
rA 8008010881180000 
rA 0000011101100000 



1830 DATA 
1890 DATA 
1910 DATA 
1910 DATA 
1920 DATA 00 
1930 ' 

1940 DATA 00 
1950 DATA 00 
1940 DATA 01 
1970 DATA 08 
1980 DATA 08 
'0 DATA 00 



0000011001100000 
0000111001110000 
0000011001100000 



* Programa i 



2000 data iiiMiumuii 
2010 data 0110000000000111 

¡020 DATA 0110001100000110 
20-0 {ATA «010011111100101 

2040 data nmunutim 
na data «000011001100000 

im data mmmmnm 
im data 00««i 11001 ¡10000 



21» DATA H 
2160 DATA ?( 
2170 DATA 01 
2180 DATA II 
2198 DATA 
22(1 DATA 
2213 DATA 



100001111110000» 
0000011111100000 

0000011001100001 



2241 DATA 1000111101110000 

2230 DATA 0«0«0I 1111 100000 

2290 data 0000100000010100 

2300 DATA 1001111100010010 

23 ti data 0001111000000000 
2320 data 0011001100000011 
::zi data imhiiuiiimii 
234i sata 0100111110100000 

2350 DATA 0100011110100000 
2341 DATA «111111101111100 
2370 DATA 0000011101100000 
2380 DATA «000000000000100 
2390 DATA 0001000000000000 
2400 DATA 0000000000000000 
10 DATA 0000011101100000 
2420 DATA 0000011001100000 
2430 DATA 0000000000000000 
2440 1 

2450 DATA 0000000000000000 
2440 DATA 0ÍI0I0000000000I 
2470 DATA 0000000000000000 
2460 DATA 0000000000000000 
2490 DATA 0000000000000111 
250Í DATA 001000000001 1101 
2510 DATA 0000000001110110 
!0 DATA 0010000000001010 
2330 DATA 1001100100001111 
2541 DATA 1101100000000000 
2550 DATA lHllMWMHtÍ! 



2540 DATA 00011000001 1 U 
2570 DATA 10011111111111 
2581 DATA II 
2510 DATA 1( 
2401 DATA 01 
2410 .' 
2420 DATA 
2430 DATA 
2440 DATA 



2480 Di 
2490 Df 



lililí 

2711 DATA llllllllllllllll 
2710 DATA llllllllllllllll 
2721 DATA llllllllllllllll 
2731 DATA llllllllllllllll 
2741 DATA llllllllllllllll 
2751 DATA II 
2741 DATA II 
2771 DATA II 




2891 DATA 11 
2911 DATA 00111100000111 
2910 DATA 0( 
2920 DATA 01 
2930 DATA II 
2941 DATA II 
2951 ' 



3111 DATA II 
3111 DATA 1101000000000000 
3121 DATA llllllllllllllll 
3131 DATA llllllllllllllll 
II DATA llllllllllllllll 
3050 DATA llllllllllllllll 
3141 DATA llllllllllllllll 
3070 DATA 0000001111100100 
IIUMUI 

3191 DATA II 



3121 ' 

3150 DATA 0000000100000000 
3141 DATA llllllllllllllll 
3171 DATA llllllllllllllll 
3181 DATA llllllllllllllll 
3191 DATA llllllllllllllll 
3211 DATA llllllllllllllll 
3211 DATA 0000001110000000 
3220 DATA 0000001110000000 
3230 DATA llllllllllllllll 

3240 DATA 0000000000000000 
3270 DATA 0000000000000000 
3280 DATA 0000000000000001 

3291 • 

3311 REM IMPRESION DE MENSAJES 
3311 REH 

3321 LJ*IM,Ml-(M*S I C«lll,l,lf 
3331 FOR 1=1 T0LEN(M>:PSET(MI7,C),1 
:PRlNTtl,NID*(Wt, I , 1 ) ; : PSET C 2+ 117+ 1 , 0 
l!pRtNT*l,R[M(H*,l,l)f iNEITiRETUfiN 
3341 REH MOVIMIENTO PORTERO 
3331 IF IP0142 THEN CO»l:RETURN 941 
3341 IF XP=<42 THEM CO'liRETURN 941 

IP'IPtXDiRETURM 941 
3381 REH 

SONIDOS 
3411 REM 

3411 FOR E=IT0 2¡S011ND 1,21¡S0UND 0,9: 
" ,1¡SOUND12,51:SOUND 8,14|NEIT: 
SOUND B, liRETURN 
3420 SOUND l,9¡S0UND 1,2;S0UND 6,30:50 



I 7,54:SC 



) S, 14: SC 



3,1 

3431 FOR I-0TO 40¡NEXT:SOUND 8,0 



3480 SO 



D 0,25:50 



6,10 



: SQUND 7, 54: SOUND 8,14:S0UND 11,4¡S0UN 

D 12,252:S0UND 13,8 

3490 FOR 1*1 10 2I:NEIT:S0UND 8,1 

3511 RETURN 

3511 REM 

3321 REM STICK'í y STR16'i 

3531 REM 

3541 B'STRIG(I) 



339» MTICKIDiRETURN 
3660 Q=STRIBtN-li íRETSJRN 
3616 IF H»l THEN D-STICK ( 1 > ELSED-STICK 




MI -177 
- 21 
32» -213 
331 - 32 
34» -121 
3M -221 
360 -131 
37» -191 
38» -214 
39» - 39 
4»8 -228 



114» - » 129» - 

US» -132 13»» - I 15!» 

1Í6Í - Sí 131» - f 154» 

1Í7» - ¡3 1321 -115 157» 

1»8» -113 133» -114 138» 

1Í9I - '» 134» -154 1591 

lili - I 1331 -171 141» 

111» - I 1341 - 27 1411 

112» -123 1371 - 31 142» 

113» - 74 138» -234 143» 

114» - 21 139» -142 164» 

115» -197 14» - I 1451 

1141 - 52 1411 - I 1441 

43» - « 92» - 31 117» - 43 142» - ( 147» 

93» -249 118» -113 143» -132 148» 



44» - 44 93» -121 
471 -138 94» -22» 



145» -132 
144» -132 
122» -189 147» -132 



179» -132 
•14» 181» -132 
-138 1811 -134 
■134 182» -14» 
■132 183» -133 
184» -137 
183» -138 



■132 



! -132 



132 197» -132 



■132 



> -132 



■132 1891 -134 

-132 19»» -138 

-132 191» -134 

-132 192» -132 

■134 193» 



■133 



i» -136 



•134 195» -138 
■133 194» -14» 
■137 197» -138 



2»4« -138 229» -134 

2»5» -134 23»» -134 

2(4» -132 231» -132 

2»7» -132 232» -132 

2(8» -132 233» -14» 

219» -138 234» -133 

211» - 58 235» -137 

211» -132 234» -137 

212» -134 237» -137 

213» -138 238» -132 

214» -134 239» -132 

213» -134 24»» -132 

214» -132 2411 -134 

217» -134 242» -134 

218» -138 243» -132 

2191 -134 244» - 58 

22»! -134 2431 -132 

2211 -138 244» -132 

222» -138 247» -132 



236» -138 
237» -137 
23B» -135 
259» -133 
24»» -132 
241» • 58 
242» -132 
263» -132 
264» -132 
265» -132 
266» -134 
267» -133 
24BÍ -139 
249» -14» 
27Í» -142 
2711 -14» 
272» -137 



-2^«^^ 
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Programa , 



_Por Diego García Martínez m 



TABLA 
PERIODICA 



Un interesante programa 
educativo que os permitirá dis- 
poner en todo momento de los 
datos que deseéis sobre la tabla 
periódica de los elementos, 
cluye una opción de test en la 
que el programa realiza nume- 
rosas preguntas sobre los ele- 




13» SCREEN0:NIDTH37:KEY OFF: COLOR 1,11 
148 DEFINTA-ZsDIH A«(4,9BI,A(?B) 
I KEY 50SUB 355Í;KEV(1> ON 
160 ON STOP GOSUB 355(¡ST0P ON 



196 ' 



II PRESENTACION III 



411 DATA 
421 DATA 
431 DATA 



2(1 LOCATE (,5¡PRINT STRIN6*( 37, 223> ¡ • 
TABLA PERIODICA DE LOS ELEMENTOS ■ 
¡STR1N6«(37,228) 

211 LOCATE 6,14:PRINT'Prosraii realna 
lo en 19B7'¡SPC(231;"por , jSPC(25)¡"üie 

22) > — — — — — 

■ DATOS PR06RANA ■ 

268 ' —————— 

278 B»='T25#05vl2DCv8C - 
281 Ct='T25#04Stf»il9ecg" 
~?8 D*=*T1 Bf O4S!>N3fl00EABV13OD" 
388 FOR A=l TO 98¡F0R B«l TO 4¡READ AI 
O :NEIT B,A 

,H, HIDROGENO. 1A, 1 
,He,HELIO,VIIIA,B 
,Li .LITIO, IA, 1 
, Be, BERILIO, IIA, 2 
A 11.81, B,B0R0,IIIA,3 
A 12. BI,C, CARBONO, IVA, -4 2 
,N,NlTR06EN0,VA,-3 ¡ 

'A 15.99,0,0XI6ENO,VlA,-2 



32B DATA 



371 DATA 



428 DA 
638 DATA 
648 DATA 
631 DATA 
648 DATA 
678 DATA 
681 DATA 
691 DATA 
711 DATA 



22.99,Ni,S0DI0,IA,l 
24.31,Nq,KA6NES10,IIA,2 
26.98,A1,ALIM1NI0,MIA,3 
28. 88, Si, SILICIO, IVA, 4 
3B,97,P 1 F0SF0R0,VA 1 -3 3 4 ! 
32.í6,S,AZUFRE,VIA,-2 2 4 I 
35.45,C1,CLORO,VIIA,-1 1 3 3 



IA 39.1»,K,P0TASIO,IA,l 

IA 48. 88, Ca, CALCIO, IIA, 2 

IA 4O5,Sr.,ESCANDI0,IIIB,3 

IA 47, 98, Ti, TITANIO, IVB,3 4 

'A 50. 94, V, VANADIO, VB, 2 3 4 5 

'A 51.99,Cr,CR0«0,VIB,2 3 6 

'A S4.93,Nn,NANEANES0,vn8,2 3 4 

A 55. 84, Fe, HIERRO, VI II , 2 3 
A 3B.93,Co,COBALT0,VIII,2 3 
A 58. 71, Ni, NIQUEL, VIII, 2 3 
A 63.54,Cu,C0BRÉ,IB,l 2 
A 65. 37, Zn.CINC, I IB, 2 
A 69.72,Bt,EALI0,niA,3 
A 72.59,6e,SERNANI0,IVA,4 
74.92,As,ARS£NIC0,VA,-3 3 5 
78. Tó, Se, SELENIO, VIA, -2 4 6 



í.91,Br,BF 
83.8e,Kr,CRIPT0N,VIIIA,8 
89.47,Rb,RUBIDI0,IA,l 
87. 62, Sr, ESTRONCIO, IIA, 2 

ITRIO, IIIB,3 
9l.22,Zr,CmC0N10,lVB,4 



i DATA 112. 

( DATA 116. 

I DATA 187.37, 

18 DATA 112. 

8 DATA 114.82, 

« DATA 11 

I DATA 121.75, 

•i DATA 127".( 

!t DATA 126.98, 

8 DATA 131.38, 

18 DATA 132.91, 

8 DATA 137.34, 

'8 DATA 138.91, 

IB DATA 148.12, 

•i DATA 148. 



i,R0DI0,VIII,2 3 4 
,Pd,PALADIQ,VIII,2 4 
, Ag, PLATA, IB, 1 
Cd, CADMIO, I IB, 2 
In,INDI0,IlIA,3 
,Sn, ESTAJO, IVA, 2 4 
,Sb,ANTIH0NIO,VA,-3 3 ! 
Te,TELURI0,VIA,-2 4 6 
I,V0DO,VIIA,-l 1 5 7 
«e,Í.ENON,VIHA,B 

, Ba| BftR I oi 1 1 A, 2 

, LANTAND, 1 1 IB, 3 
,Ce,CERI0, 1IIB.3 4 
,Pr,PRASEODINI0,IIIB,3 



911 DATA 144. 24, Nd, NEODIMIO. II IB, 3 
918 DATA 147.88,Pi,PR0NETI0,IIIB,3 
921 DATA 15(.35,Si,SANARI0,IIIB,2 3 
938 DATA 151 . 96, Eu, EUROPIO, 1 1 IB, 2 3 
948 DATA 157 . 25 , 5d, BAD0LIN1O, IIIB,3 
958 DATA 158. 92, Tb , TERBIO, 1 1 IB, 3 4 
968 DATA 162.58,Dy,DISPR0SI0,IlIB,5 
978 DATA 164.93,Ho,H0LM0,I!IB,3 
988 DATA 167 . 26, Er , ERBIO, 1 1 IB, 3 
998 DATA 168.93,Ti,TULI0,IIIB,2 3 
1188 DATA 173.84, Yb, YTERBIO, IIIB.2 3 
1818 DATA 174.91, Lu, LUTECIO, 1 1 IB, 3 
1828 DATA 178.49,H4,HAFNI0,IV6,4 
1838 DATA 188. 95, Ta, TANTALO, VB, 5 
1848 DATA 183. 85, N, VOLFRAMIO, VIB, 2 3 
5 6 

1858 DATA 186. 20, Re, RENIO, VIIB, -1 2 4 
i 7 

1(68 DATA 198. 28, Os, OSMIO, VIII, 2 3 4 
8 

1878 DATA i 92. 28, Ir, IRIDIO, VII 1,2 3 I 
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10 DATA 200. 5?, Hg, MERCURIO, IIB, 1 2 

11 DATA 2»4.37,T1,TALI0,!I1A,1 3 
!l DATA 2«7,19,Pb,PLQHO,IVA,2 4 
!< DATA 2«8.98,Bi,BISNUT0,VA,3 5 
I» DATA 21«.l»,Po,P0L0NI0,VIA,2 4 
¡I DATA 21Í.M,At,ASTAT0,VIIA,-l 1 



S RECO-NOCIDA POR 




■ INSTRUCCIONES ■ 

1431 ' ■ — 
144Í CLS:PRINT-EL PR06RAHA TRATA 

ALGUNAS CARACTERISTICAS DE LOS A 
, PERMITE QUE SE CONSULTEN LOS DAT 
OUE EL ORDE-NADOR TE PREGUNTE LAS CARA 
CTERISTICASDE LOS ATONOSIY COMUNICA SI 

HAS ACER-TADO) . " 

51 PRINT'LAS CARACTERISTICAS OUE HAN 
EJA EL PROGRAMA SON EL NUNERO ATO 
PESO ATO-HICO.FAHILIA, VALENCIANO 
Y SIHBO-LO." 
146» PRINT'EL SIMBOLO ATONICO SE ESCRI 
BE CON LA PRIMERA LETRA MAYUSCULA Y LA 
RE SOLO ES R 



SCULAS.LA FAMILIA E 
A NOMENCLATURA DE N 
POR EJEMPLO VIll.IA 



147f PRINT'LA VALENCIA SE RESPONDE DE] 
ANDO ESPA-CIO EN BLANCO ENTRE CADA VAL 
ENCIA.NO SE DEBEN SEPARAR MEDIANTE COM 
AS. EL PESO ATOMICO ES ACEPTADO CON EL 
ERROR DE UNA UNIDAD.' 
14BI LOCATE 11,22:PRINT"PULSA UNA TECL 



" THEN 1491 
IEL PR06RAÍ 
10 LAS OPCION 
10 ENTRE PARENTESI 
¡E HACE TECLEANDO 
IN.EL RESRESO A 
:E APRETANDO Lf 



1350 LOCATE 11,5:PRINT "M 
'¡SPCI12)iSTRIN6«(37,223);SPC(7];' 
INSTRUCCIONES"; SPC (2Í) ; " (2) CONSULTA D 
AT0S';SPC(19I;'(3> PRE6UNTAS , ¡SPC(24)¡ 
41 FIN DEL PR06RAHA';SPC(l»)¡STRIN6« 
137,2211 

1370 DN VALIINKEYOGOTO 139», 1551, 1821 



149» A«=INKEY»¡IF A»»" 
1511 CLS: PRINT'EL NANEJO 
SE HACE POR HENUS.ELI6IE 
ES PULSANDO EL NUMERO E 
S.LAS CONTESTACIONES S 
Y APRE-TANDO RETURN. 
1 PRIN-CIPAL SE HACE 
1 <F1>0 <CTRL>«STOP>.' 
1311 PRINT'EL PROGRAMA TE PUEDE PREEUN 
TAR LOS E-LEMENTOS DE NUMERO ATOMICO C 
NDI-DO ENTRE EL 1 Y 98.SI NO TE I 
NTERESA QUE TE PREGUNTE TODOS LOS ELEM 
ENTOS ELIGELOS CON LA OPCION ADECUADA 
,POR HEDIO DEL NOMBRE O SIMBOLO.'; 
1S2I PRINT'PUEDES GRABAR EN EL MAGNETO 
FONO ESTA ULTINA IN-F0RMACION,Y RECUPE 
RARLA.DE MODO QUE NO NECESITAS TECLEA 
R TODOS LOS ELEMENTOS QUE TE INTERESAN 
CADA VEZ QUE INICIAS EL PROGRC 
1531 LOCATE U,22:PRINT'PULSA l 



1541 A»»INKEYt¡ IF Al 



■ THEN 133Í ELSE 



15B» ' 
159Í ' 



■ CONSULTA DATOS ■ 



1751 ' 
176» ' 



I CLS:PRINT'¿EN BASE A QUE DESEAS P 
EDIR INFORMA- CION?' 
lili LOCATE 8,5: PRINT STRING«(37,223); 
SPCIBli'd) FAMILIA';SPC(26)¡'(21 NOMB 
RE O S INBOLO- ;SPC (?) ; STRIN6* (37,22f ) 
1629 A-VAL (IKKEYt) 
1631 IF A<1 OR A>2 THEN 1621 
1641 CLS:ON A 60T0 1651,1741 



1711 IF A»=A«(3,CI THEN E»=B»:PRINTA«I 
2,C);iL0CATE 12:PRINTA»( 1 ,0 ;: LOCATE 1 
5: PRINTC; : LOCATE 19: PRINTA» (I, Cl ; : LOCA 
TE 26iPRINTA»(4,C) 



O SIMBOLO" ;f 

'A»I2, 0 THEN 
!,C)¡PRINT'SIH 
ATOMICO:"; 



:»=C«: INPUT-iNONE 
17BI FOR C»l TO 98 
179» IF A»=A«(1,C) OR 
E»=B»:PRINT'NONBRE:';« 

';A»(1,C):PRINT'N 
CiPRINT'PESO ATOMICO:";A«IÍ,C>:PRINT" 
ALENCIA:';AI(4,C) 
18M NEU C 

1818 PLAY E$:PRINT:GOT0 174» 



1360 ' «■■■■ — 

1871 ' 

QUE SE PREGUNTA til 

1891 ' 

19M CLS:PRINT'¿QUE ELEMENTOS SE TE PR 
E6UNTAN?" 

191» LOCATE »,5¡PRINT STR1NGK37.22I 
SPCI71;'I1) TODOS LOS ELEMENT0S';SPCI1 
OUE YO ELIJA';SPCUÍ);STRI 
NStl37,22i) 

192» ON VALdNKEY*) GOTO 194», 196» 



1930 GC 



) 1920 



194» FOR A=l TO 98:A(A)=A:NEXT 
1951 6=98 ¡60T0 2381 

I CLS:PRINT"¿COM0 QUIERES INDICAR L 
OS ELEMENTOS?" 

197» LOCATE »,5:PRINT STRIN6* (37, 223) ; 
SPCI7);'I1) DESDE EL TECLADO' ; SPC < 1 7) j 
'(21 DESDE EL HA6NETOFON0";SPC(6);STRI 
N6»(37,22») 

19B» ON VALdNKEY») SOTO 2»»»,217» 
199» GOTO 198» 
2000 ' 



2111 • II INTRODUCCION TECLADO. II 
2121 ' 

2»3» CLS¡INPUT"¿NUHERO DE ELEMEN1 
98)"¡B 

214» IF B<1 OR B>98 THEN 2»3» 
2050 FOR A=l TG B 
2060 Mi INPUT"¿ELEHENTO (NOMBRE O SIHB 
OLOI'iM 

2»7I IF C<9B THEN C=M ELSE PLAY C«:P 
RINT-ELEHENTO NO ENCONTRADO " : GOTO 2060 
2181 IF A»OA»(l,Ci AND A«OA((2,C) 1 
■N 2070 

2»9» PLAY B»:A(A)=C:NE1(T 



ENENTOS EN EL MA6NET0F0N0?" 
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Programa ■ 



214» LOCATE »,5:PR1NT STRING$(37,223I¡ 
SPCI7lf"(l) SI 0UIER0"]SPC(24);"(2) NO 
BUIERO- ; SPC (17) ; STRIN6* (37, Z2«) 
2151 ON VftL ( INKEYf ) 60T0 2279,2389 



I CARGA ELEMENTOS ti 



2IM ' 
21?» ' 

2211 CLS:PRINT-PON EL MAGNETOFONO EN II 
000 DE CARGA." 

2211 0PEN-CAS:TP- FOR INPUT AS II 
2228 INPUT II, B 
2231 FOR A=l TO S 
2241 INPUT tl,AIA) 
2251 NE 



¡l GOTO 2371 



2281 ' 
2291 ' 



I GRABACION ELEMENTOS It 




l( CLS:PRINT"PON EL MAGNETOFONO EN M 
000 DE GRABA- CION V PULSA UNA TECLA." 
««INKEYIiIF A«=" THEN 2311 
]PEN"CAS¡TP" FOR OUTPUT AS II 
233» PRINT II, B 
234» FOR A=l TO B 
233» PRINT ll,A!A) 
234» NEIT 

237» CLOSEiGOTO 21M 
238» ' 

241» ' 

241» CLS¡PRINT"¿COHO QUIERES QUE SE TE 
PREGUNTEN LOSELENENTOS?" 
242» LOCATE »,5!PR1NT STRING* 137, 2231) 
5PC(7)|MI POR SU SINB0L0"iSPC(19)¡" 
' SU NOMBRE" i SPC 12») i" (3) POR SU 
)AT0HICO"¡SPC(3);STRING<(37,22»> 
243» D=VAL(INKE¥«) 
244» IF D=l THEN 243» 



25Í» LOCATE 0,3: PRINT STRING* (37, 2: 
SRC(7I¡"(1) EL SIHBOL0";SPC(23)¡"(2) E 
¡SPC(24)¡"(3) EL NUMERO ATOMI 
C0"¡SPC(16)¡"(4) EL PESO ATOMICO" ¡ SPC ( 
18);"I3) LA VALENCIA";SPC(22)¡"(6) LA 
FANILIA"!SPC(23)i"(7l COMIENZO" ; SPC (! B 
)¡STRING«(37,22») 

251» ON VALÜNKEYI) 60T0 233»,233í,237 
l,259»,261«,263»,2i 
232» 60T0 251» 

EN LOCATE 5, 6: PRINT"*" : 

PS=1:60T0 2! 



2331 IF PE=» THEN LOCATE 3,7:PRINT"»' 
"'1:60T0 251» 

25¿í LOCATE 5,7;PRINT" ":PE=»¡60TO 251 
» 

257» IF PN=I THEN LOCATE 5, 8 : PRINT" t " : 
- 1:60T0 251» 

I LOCATE 5,8:PRINT" ":PN=»:60TO 251 

2591 IF PP=» WEN LOCATE 5,9:PRINT"«'¡ 
2511 

2Í»» LOCATE 5,9:PRINT" ":PP=»¡6OT0 251 
» 

261» IF PV=» THEN LOCATE 5,I»:PRINTT 
" =1:GOTO 251» 

262» LOCATE 5,1I:PRINT" ":PV=8:G0TD 25 
1» 

243» IF PF=I THEN LOCATE 5, 1 1 ¡PRINT"»" 
¡PF=1:60TO 251» 

264» LOCATE 3,11:PRINT" "¡PF=»!GOTO 25 
1» 

2651 ' 

2661. ' III MEZCLADO DE ELEMENTOS III 
267» ' 

2681 FOR A=l TO B 

II C=INT(RND(-TIME)IB1M 

I» SHAP A(A),AIC) 
2711 NEIT 

II BUCLE PRINCIPAL III 
II DE III 
II PREGUNTAS III 

277». IF A>=B THEN A'l ELSE A=A*1 
278» CLS¡PRINT"ELEMENTO..."¡ 
279» IF D<3 THEN PRINT A»(D,A(A)1 ELSE 
PRINT A(A) 

2BÍÍ IF PE=1 THEN INPUT"¿NONBRE";A«:C= 
2: 60SUB 338» 

281» IF PS=1 THEN INPUT"¿SIHBOLO";A«:C 
282» IF PN=1 THEN INPUT"¿HUHERO ATOHIC 



283» IF PF=1 THEN INPUT" ¿FAMILIA" ¡A*: C 

284» IF PV=1 THEN INPUT"¿VALENCIA"¡A«: 
GOSUB 3»7I 

285» IF PP=1 THEN INPUT"¿PESO ATOMICO" 
;C!:GOSUB 297» 
2B6» A»=INKEY«¡IF A»=" THEN 286» ELSE 



2888 ' 
289» ' 

29»» IF COA (A) THEN 293» 
2918 PLAY B»:PRINT"HAS ACERTADO" 
292» RETURN 
2938 PLAY C*:A«="MNPUT"¿QUIERES REPE 
TIR(S/)"¡AI 
294» IF A«="S* OR Al="s" THEN INPUT'tR 
EPITE"jC:GOTO 29 
2958 PLAY DliPRINT'LA RESPUESTA CORREC 
TA ES "¡AiA) 
2968 RETURN 
2971 ' 

298» ' II PREGUNTA PESO ATOMICO II 
>8 ' 

II IF ABSIC!-VAL(A«(I,A(A) 



I PREGUNTA NUMERO ATOMICO II 



THEN 



383» 

3»1» PLAY BIsPRINT'HAS ACERTADO" 
3«2« RETURN 
3»3» PLAY C»:AM":INPUT"¿QUIERES REPE 
TIR(S/)"¡A« 

¡" THEN INPUT"¿R 

EPITE";C!:G0TO 3»»» 
315» PLAY D«:PRINT"LA RESPUESTA CO 
TA ES "¡AU»,A(A)> 
316» RETURN 

zm • 

TA VALENCIA II 



31»» E=»¡F»=" 

311» FOR C=l TO LEN(A$(4,A(A))I 
312» Et=HID»IA«4,A(A)),C,l) 



313» IF £*=' ' AND HtD»(A»(4,A(An,CM 
,U<>" " THEN E=E+1:B(E)=VAL(F*>:F«=" 
EL SE F*=F»+E« 
3140 MEXT 

3151 E=E»1¡B(E)=VAL(FÍ)¡B(0)=E 
3160 E=0:FI=" 
3170 FOR C=l TO LENCA*) 
3180 E»=H1D,(A.,C,1> 
3190 IF E»=" 1 AND MMIM.CM.DO' 1 
THEN E»E*l¡C(E>=VALIFI)iF»=" ELSE F 
MF4+E» 
3200 NEIT 

3210 E=En¡CIE)=VAL(F«l:C(0l=E 

3220 F=(:B=« 

3230 FOR C=l TO C(0) 

3240 FOR E«I TO C(l) 

3250 IF C(C)-C(E1 AND COE THEN F=l 

3260 NEJT E,C 

3270 IF F»l THEN PRINT'HAS REPETIDO AL 

32B0 IF 8(1)4(1) THEN PRINT'HAS PUEST 
0 TODAS LAS VALENCIAS" ELSE IF B(0)>C( 


0) THEN PRINT'HAS PUESTO DE HENOS' ¡I 10 

)-C(0)¡'VALENCIAS' ELSE PRINT'HAS PUES 

TO DE HAS'íC(0I-B(0)¡'VALENCIAS' 

3290 FOR M TO B(0) 

3300 FOR E=l TO C(01 

3310 IF B(C)=C(E) THEN 6=6*1 

3321 NEKT E,C 

3331 IF D(0]=CI0l AND 6=B(01 THEN PLAV 
Bli PRINT'HAS ACERTADO TODAS LAS VALEN 
CIAS'iRETURN 

3340 PLAV C4:PRINT'HAS ACERTAD0'¡6¡'VA 
LENCIASMNPUT'tíUIERES REPETIR(S/)'¡A 

3330 IF AM'S" OR A»="s" THEN INPUT"¿R 

EPITE";A«;60T0 3100 

3340 PLAY Í«:PRINT'LA RESPUESTA CORREC 

TA ES ';A«(4,AIA)I 

3370 RETURN 

3380 ' 

3410 ' 


3420 IF A»OA«(C,A(A)) THEN 3450 
3430 PLAY B«:PRINT'HAS ACERTADO" 
3440 RETURN 

3450 PLAY C»;A«="":INPUT'í.!1UIERES REPE 
TIR(S/)';A« 

3440 IF A»='S" OR A«='5' THEN lNPUT'tP 

EPITE'¡A4¡60TO 3420 

3470 PLAY D»:PRINT'LA RESPUESTA CORREC 

TA ES ';A«(C,AIAI> 

3480 RETURN 

3510 1 ■ FIN DEL PR06RAHA ■ 
3520 ' 

3540 COLOR 15,4,4iSCREEN 6:KEY DN:END 
3540 ' 

3570 ' ■ RETORNO AL MENU B 
3600 RETURN 1290 




10 - 58 348 -174 670 -183 1000 -18B 1330 - 58 1660 - 58 1990 - 90 2320 - 67 26S0 - 58 2980 - 58 3310 
20 - 58 35» -239 6B0 -185 1010 -142 1340 -159 1670 - 58 2000 - 58 2330 - 52 2660 - 58 2990 - 58 3320 
30 - 58 360 - 20 690 "108 1020 -231 1330 -118 1680 - 4 2010 - 58 2340 -223 2470 - 58 3000 - 42 3330 
40 - 58 370 -23' 700 -103 1030 -234 1360 -192 1690 -137 2020 - 58 2350 -197 2 680 -223 3010 - 85 3340 
50 - 5B 380 -225 710 -167 1040 - 86 1370 - 3 1710 - 16 2030 -242 2360 -131 2690 -212 3020 -142 3350 
60 - 58 J90 -146 720 -119 1050 -242 1380 -246 1710 -129 2040 - 68 2370 -193 2700 -120 3030 - 81 3360 
70 - 58 400 -178 730 -149 1060 -223 1390 - 58 1720 -198 2050 -223 2380 - 58 2710 -131 3040 -191 3370 
80 - 58 410 - 32 740 -128 1070 -219 1400 - 58 1730 - 62 2060 - 95 2390 - 58 2720 - 58 3050 -109 3380 
90 - 58 420 - 36 750 - 96 1080 -220 1410 - 58 1740 - 58 2070 - 91 2400 - 58 2730 - 58 3060 -142 3390 
100 - 58 430 -149 760 -162 1090 - 7 1420 - 58 1750 - 58 2080 -124 2410 - 79 2 740 - 58 3070 - 58 3400 
110 - 58 440 - 16 770 - 63 1100 -174 1430 - 58 1760 - 58 2090 - 35 2420 - 60 2750 - 58 3080 - 58 3410 
,128- 58 450 - 54 780 -1B0 1110 - 27 1440 - 83 1770 - 49 2100 - 58 2430 - 3 2760 - 58 3090 - 58 3420 
130 - 35 460 - 40 790 -219 1120 -228 1450 -218 1780 - 16 2110 - 58 2440 - 62 2770 - 86 3100 - 28 3430 
140 -144 470 -184 800 -147 1130 - 58 1460 - 65 1790 - 39 2120 - 58 2450 - 5B 2 780 -204 3110 - 75 3440 
150 -229 480 - 8 810 - 36 1140 -122 1470 -124 1800 -198 2130 -180 2460 - 58 2790 -118 3120 -162 3450 
160 - 10 490 - 84 820 -232 1150 - 45 1481 - 36 1810 -152 2140 - 64 2470 - 58 2800 -100 3130 - 0 3460 
170 - 58 500 -130 830 - 12 1160 - 46 1490 - 92 1820 - 38 2150 -113 2480 -212 2810 -195 3140 -131 3470 
180 - 58 510 -132 840 - 65 1170 -206 1500 - 47 1830 - 58 2160 - 5 2490 - 81 2820 - 16 3150 -221 3480 
190 - 58 520 - 83 850 - 70 1180 -131 1510 - 45 1B40 - 58 2170 - 58 2500 -108 2830 -150 3160 - 28 3490 
200 -200 530 -242 860 -121 1190 - 88 1520 - 29 1850 - 58 2180 - 58 2510 -110 2846 - 62 3170 -230 3500 
210 -131 540 -235 870 -114 1206 -246 1530 - 36 1860 - 5B 2190 - 58 2520 -110 2850 -211 3180 - 61 3510 
220 - 58 550 -187 B80 -248 1210 -219 1540 - 18 1870 - 5B 2200 - 64 2530 -248 2B60 -119 3190 -156 3520 
230 - 58 560 - 66 890 -227 1220 -116 1550 - 58 1680 - 58 2210 -121 2540 -197 2870 - 58 3200 -131 3530 
240 - 58 570 -135 900 -183 1230 -125 1560 - 58 1890 - 58 2220 - 40 2550 -221 2B80 - 58 3210 -223 3540 
250 - 58 380 - 82 910 -218 1240 -136 1570 - 58 1900 - 17 2230 -223 2560 -184 2 890 - 58 3220 -199 3550 
260 - 58 590 - 69 920 -174 1250 - 65 1580 - 58 1910 - 85 2240 -185 2570 -240 2 900 -228 3230 - 68 3360 
270 - 57 600 - 34 930 -199 1240 -225 1590 - 58 1920 -128 2250 -131 2580 -194 2910 - 85 3240 - 70 3570 
280 -162 610 -157 940 -247 1270 -221 1600 -250 1930 - 30 2260 -226 2590 -245 2920 -142 3250 -167 3580 
290 -217 620 - 75 950 -106 1280 - 64 1610 -116 1940 - 8 2270 - 58 2600 -197 2 930 - 81 3260 - 55 3590 
300 -140 630 -159 960 - 41 1290 - 58 1620 - 0 1950 -200 2280 - 58 2610 - 0 2940 - 58 3270 -228 3600 
310 -157 640 -176 971 - 56 1300 - 58 1430 - 73 1940 -117 2290 - 58 2420 -202 2950 -122 32B0 - 30 
320 -1B2 450 - 92 980 -224 1310 - 58 1440 -202 1970 -114 7300 -192 2430 -223 2940 -142 3290 - 67 TOT 


131 
55 
123 
48 
37 
113 
142 
58 
58 
58 
58 
53 
85 
142 
81 
112 
159 
142 
58 
58 
58 
58 
58 
195 

5a 

58 
58 
58 
58 
171 

ti 

1 
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Programa , 



■Por Tony Farrés. 



BANDA 
SONORA 



e aquí la adaptación 
cal para MSX de dos conc 
bandas sonoras de dos pelícu- 
las: «El golpe» y «Segunda En- 




• TONI F ARRES 1786 J> 

i' 

' PARA MSX-CLUB » J> 



■i i-i'i-i }•»•}>» 



PSET<80, 10) . 01 PRINT# 1 , "EL" 
rSET Í40.60Í.0 íPRINTt*!. "GOLPE " 
PLAY "TI 50", "TI 50", "T150" 
E1*="0¿L8DECD5AABGGDEC04AABGGDE 

iABAA-GGF.405G.R8" 

E2*=--"05LBPEC04AABGGDEC03AABGGDE 

F 1 *= "L 1 604DD#E05CC04E05CC04EÜ5C 
1 í.L i fcO'XDDttf.-t'E •• I4BO5DDC4R804L1 
E05COJ4EG 5CC04E05CC4R8L 1 604AGF* 
E ■EDC04AD5L4DR8L I 604DD#" 
F2*»»RS03C8R8C8R8F8R8F8R8C3R8B8 
R8LBR5GSR3C3PBCBP3F8R3FSP8DBRBD8RBG 
8R8G8R3" 

5*= ,, RSR804CBFBC8P8FBRBF8RBC8RB 
G8P3C8PBG3R8C8R8C8RSF8RBF8R8D8R8D8R 
8G3P8G8" 

I B1*-"L:ó04EC5CC04E05CC04E05CC4R 
. lóCDD#ECDEE04BO5DDC4R8CDECDEECDC 

ECDEECr 

210 52<="L? 
P8C8P3CBF3D: ■■'< 8CC:-',: r 5 ;■ 3P3F8GBRBG8P8C 
8R8" 



#GG AGGR i ó A A# " 

H3Í- " R 1 6L 1 605CDD#EEAEECDD#EEAEE 
D04GQ5EFGAGEDEEAEECDD 

tiEÜA¡.".EGAA#" 

250 H2Í--03C3P3C8P8C8R8C8R3C3RSFSR8 

F8R8C8R8C8R8C8RSC8R8CBR8C8R8" 

260 RE*--"DSL16B" 

270 I 1Í="05L16BAF#DG4R16L16EFF#GGAG 



G E P F n 6 G A G G E L O 4 0 ," r r, '.; r r< E !_■ C, D C 4 R 1 6 0 4 L 1 6 
SF#GÓ5CCQ4A05CCD4AQ5C04AG05£EGBÉC04 
G AE05C8E 1 6D8C 1 6C8 " 

280 I2*="05L16BAF#D64R16L16CDD#EEAE 
ECDD#EEAEEP 1 >-,P í 6P i c,P 1 P 1 0 1F #8F#8G16F 
8E16EB" 

290 I3*="G3D3P8G8R8G8PBC8R8C8R8C8R8 
C8RGF8R8F8R8C8R8C8R8FSR3F#R8G804A3ü 
3A8R8D8RBB8RBC8" 
300 PLAY' 



320 FOR 1=1 
330 PLAY"T7" 
340 PLAY FÜ 
350 PLAY 51! 
360 PLAY Hlí 
370 PLAY F 



,F2*,F3* 
,G2*,G3* 
,H2*,H3* 
"03D16",RE* 



380 PLAY RE*+RE*. "03D16R16". 
~i, "o3dl6",RE* 
¡> 13$, 12* 
0)=-l THEN 410 E 
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10 - 53 80 - 5B 
20 - 58 90 - 58 
30 - 58 100 -217 
40-58 110 -224 
50 - 58 120 -245 
60 - 58 130 -229 : 
70 - 58 140 -163 : 


50 - 67 220 -179 290 - 32 360 -243 430 -129 
60 - 62 230 -145 300 - 19 370 - 0 
70 -113 240 -237 310 - 34 380 - 1~ 
80 - 73 250 -154 320 -184 390 - 64 
90 - 75 260 -103 330 - 37 400 -246 
W - 19 270 - 45 340 -23.7 4: < ? -178 T^t^l- 
10 - 57 280 -241 350 -240 *r><* -171 496 , 



■9 -9 

.? SEGUNDA ENSEÑANZA 

■9 

JNl F ARRES 1986 

•5 

PARA MSX-CLUB -1 
■9 

J SCREEN 3 

ü COLOR 15.4,4:CLS 

:> 0PEN"6RP: "AS#1 

;l F'SET (25, 10) ; 0: PRINT#1 , " SEGUNDA" 
1 F'SET ( 57, 60 ) , 0: F'RINTt 1 , "ENSE- " 
:> PSET<!57, 110) ,0:PRINT#1, " flANZA" 
>) PLAY" VIST 120". "V12T120", "V12T12 



. I03t;l i 



1 G :■ ■ 



1 90 -A3*« " R204 C1E1 03A 1 04E 1 F 1 03G2 " 
200 B1*="05G4F4G1G2F4E3. .F*t32G4.FB0 
4A 105F4E4F4 . E804G 1 05C404B8 . . 05D#32E 
4.D804A2" 

210 B2*= " 0352E i A 1 F 1 G 1 04C203B2A2F2D2 

220 B3Í = " 03G2O4E 1 03 A 1 04F 1 036 1 04C2E2 
03A104D1" 

230 C1*="A404B405C.404A405D1D2" 
240 C2*="03D1G1G2" 
250 r- -;4D103G162" 

260 D1*="05D#32E4. D804G205DBE8C2C4" 




¡ D2*»"P32 O Z G i 0 4 C 4 V 1 0C 2 C 4 " 
' D3*="R32Ü4G104C4V 1 0C2C4 " 
TO 2 



ü PLAY A: 
) PLAY B 
i PLAY D 
>„ IF PLAY(0i 



THEN 360 ELSE 370 





10 - 58 70 - 58 
20 - 58 80 - 58 
30 - 58 90 - 58 
40 - 58 100 -217 
50 - 58 110 - 54 


130 - 32 190 - 27 250 - 56 3 
140 -215 200 -197 260 -164 3 
150 -128 210 -100 270 - 27 3 
160 -200 220 - 3 280 - 29 3 


10 -225 370 -131 
20 -228 380 -12" 



Programa, 



■Por Willy Gundin, 



SNOOPY SPORT 



las postales, pósters, pej 
de Snoopy. Nosotros no 

una divertida imlgen^e Snoo- 
py: SNOOPY SPORT. 



PRESENTACION *SS 



5CREEN 2:0PEN"GRP: "AS#1 
LINE<0,0>-<256, 192) , 1 , BF r 
D LINE(40,5) -(220, 115) , 4 , BF 
ü LINEÍ40, 116)-<220, 187) ,3,BF 
:I LINE<5,5>-<30, 187) , 13.BF 
9 LINE(22S,S)-(250, 1B7) , 13, BF 
il L.INE (8, 8) - (27, 184) , 1 , BF 
il LINE(22B,B)-(247, 1B5) . l.BF 
í S*="C15R8E2U6H2L6H2U6E2RS": '£ 
ü 0*~"H2U16E2R6F2D16S2L6": '0 
) P*="U17D8R8E2U7H2L10" S 'P 
il DF:AW"BM12,40XS*! "¡ 'S 
■1 DR AW » BM 1 2 , 65U20F 1 0U 1 0D20 " : ' N 
:l DRAW"BM12, 90X0*1 " ■ ' 0 



250 DRAW»BM234,52XS* S •• 
260 DRAW"BM234,77XP*s " 
270 DRAWBM234, 102X0»; 
280 DRAWBM234, 1 



S2U20L5R10": 'T 



330 DRAWBM95, 102C15MB7, 1041180, 101M 
77,96M75,99M72, 100M70, 103M72, 105M70 
, 106M68, 109M72. 1 1 1M76, 1 1 1M83. 114M83 
, 106M78, 1 1BM92, 1 14M84, 1 1ÓM95, 1 10M95 
, 102" 

340 PAINT (94, 103) , 15 
350 DRAW"BM168, 95C15R10M189, B5R4M1S 
5.93R20F3D3G3L37M168,95" 
360 PAINT (189, 86) . 15 
370 CIRCLE(200,B7) ,8, 14: PAINT (200, 8 



390 'KK RAQUETA 




4 



410 CIRCLE(57,60),30,6,,,1.4 
420 DRAW"BM62,B7C6M76, 127M82, 125M70 
,87M62,87" 
430 PAINT<57,60) ,6 
440 CIRCLE(57,60) , 17, 15, , , 1.4 
450 PAINT (57, 60) , 15 
460 PAINT (65, 90) ,6 
470 ■«!* 

480 "KS! VISERA 
490 'Bü 

500 DRAW"BM106,25C3M119, 10M 135,81*11 4 
6, 17M106,23" 



.: PAINT (206, 55 



•gtt ROSTRO Y DETALLES sss 



380 DR AW " BM 1 30 , B5C 1 5M 1 22 . 75BMB5 , 75U 
18M103,33M130,22M166,35R25BM200, 
163, 75M153, 85M130, 83" 
590 CIRCLE<104,75> , 18.5. 15,3. 1 
600 CIRCLE(185,57) ,22, 15:FAINT<1 
37) , 15 

610 LINE< 131, 86) -(133,93), 1 , BF 
620 PAINT(150,23) , 15 




5,63" 

640 PAINT(149,58) . 13 

650 CIRCLE<150,37> , 2, 1 s PAINT ( 130, 3 

) , l:PSET(150.37) , 15 

660 DRAW"BM122,76C0U30" 

670 ' ¡s¡sssss!BBis«!iB«síe;iSS 
680 '«* JERSEY ¡s« 



700 DRAW"BM163,94C13L38M95, 102D8M12 
5, 103MU2, 117R45M163, 103RSM16B,'; 
710 PAINT(167,95) , 13 



PIES 



730 ' 
740 ' 

750 DRAW " BM 1 03 , 1 46C 1 5M95 , 1 49M8? . 1 4 í 

MS4, 145M81 , 151M93. 178BM103, 174M96. I 

57M10.8, 151M103, 146" 

760 CIRCLE(99, 177) .5, 15 

770 PAINT (99, 177) , 15 

780 PAINT (103. 147) , 15 

790 DRAW "BM 130, 162C15M122, 174M122, í 

B1M132, 1B5P2BBM160. 175L17M13R, 171M1 

38, 164M130, 162" 

800 CIRCLE(160, 1B0) ,5, 13 

810 PAINTU60, 180) , 15 

B20 PAINT ( 130, 163) , 13 



PANTALON 



84SI ' 



860 LINE(112, 117) - (156, 126). 15, BE 
870 DRAW "BM 156, 1 27C5L45M 1 03 , 142M10S 
, 152M11B, 157M125, 133D6M140, 16BMÍ" 
135M156, 127" 
BB0 PAINT < 135, 128) ,5 
890 DRAW "BM 124. 1S3C1M135. 147" 
900 FOR C=l TO 15 
9Í0 PRESET(170, 170) ,C: COLOR C:PRINT 
#1, "Willy" 
920 NEXT C 
930 GOTO 900 



Test de listado. 



740 - 58 B80 -183 



70 - 5B 210 - 3 350 - 
80 -242 220 - 49 360 - 



490 - 38 630 -250 770 -184 

501? -227 640 -113 780 -158 

510 - 44 650 -184 790 -245 

520 - 54 660 -234 800 - 53 



690 - 58 



0 



Programa . 



■Por Carlos Díaz Sandoval™ 



EXTALTIAN 



En este sencillo juego debes 
destruir tantas veces como te 
sea posible al enemigo que pu- 
lula por la parte superior de la 
pantalla y que te disparará mor- 



2 ' lili EXALTIAN II 



St PRINT:PRINT:PRINT-De Cirios . I 

ival para¡":PRlNT 
¿I PR1NT- MSX-CLUB DE PR06RANA5 
7B PR INT: PR I NT : PR I NT : PR I NT "El í ge i 

SI PRINT:PRINT-F-I NIVEL 1 

...NIVEL 4'lPRINT 
91 PRlNT"F-2 NIVEL 2 F-7.. 



lee PRWF-3 

NIVEL Et'iPRINT 

ie PRINT"F-4 

NIVEL 9'iPRINT 



131 PR ! NT* (Pulsa [E8C1 para 

14B KEYl,-l-jKeY2,-2-iKEY3, , 3':KEV4 > - 
■:KEYS,-S":KEY4, ' 6" : KET7 , " 7" :KEY B,'8" 
:KEY 9,-9'iKEVl*,-*- 
1» A»«INKEY»¡IF A«." THEN 1H 

\t IF A««CHR«(27> THEN MU 

'B A=VAL(A»I:IF i»| THEN NB=l;G0TO 28 

» IF A=2 THEN NB=2:60SUB 11¿0:EGTO 2 
I 

II IF A=3 THEN NB=3¡60SUB 116B;60T0 2 
) 

2ee IF A=4 THEN NB=4:605UB 116«:B0T0 2 

2ie IF A=5 THEN NB=3:B05UB HiBiEOTO 2 

se 

22Í IF A=6 THEN NB=6:&0SUB 114e:60T0 2 
IF A=7 THEN NB=7¡60SUB U6«:G0T0 2 




25e IF A*9 THEN NB«9:B0SUB U60:6QTO 2 



331 NEKT B¡SPRITE»(AI»A«¡NEI(T A 



261 IF THEN NB=18:6[ 



I ItMiSI 



271 SOTO 21 
2BI PLAV046R6468R6466R6405CBR44C804RÍ 
462-iCOLOR l.H.lliSCHÉEK 2,2,1,1:1 
»:PT=B:C=2¡ RESTORE 1281 
290 ' - DEFINICION SPRITES - 
311 FOR A-e TO 4¡A$." 
3ie FOR 8=1 TO 32;REflD B« 



J6# ' -E C.D.S. PARA MSX-CLUB 

•IMiVDI-'ím* 

391 LINE(lBe,í)-(2S5,191) ) ie,BF 

4ei PSET(il,II),liMET(3l,UI),liP8ITI 

5«,5«) . 1 : PSETI7Í, 175) , 1 : PSET (9#, 90 ) , 1 : 

psETine.íei.hPSETine.sei.hPSETiüe 

, líí) , l:PSET(l7f ,7») , l:PSET(íií, 140) , 
¡PSETI14e i 8e),I¡PSET(I2e,lBe),l¡P5ETI9 



26 



1,751,1 

410 ' - MARCADOR - 
420 0PEN"GRP:"AS»1 

430 DRAH'BIIISS, 1#" : PRINTtl , >PUNTOS: ■ 


910 IF 1K11 THEN X 1-lf t AX'+VN 

930 11MHA1 
940 RETURN 

950 ' - SUBRUTINA DISPARO KRAHUC - 


131» data 4,4,e,e,e,e,4,4,e,4,4,0,8,a, 
,«,m!ii',i» 

132» data 24,bc,6e,5e,7f,75,3f,3b,3e,2 


448 »FflN"BI11W,25":PRINTtl,USIN6"«IM 
l"|PT 

450 DRflN "BH185, 50" : PRINTtl , "NI VEL: " 
440 DR AH" BH 1 95 , &S* : PR I KT« 1 , NB 
470 DRAH'BHISS, 108" : PRINTtl , "VIDAS: " 
481 DRAH 1 Bfl 1 95 , 1 25 " : PRINTI 1 , 'Ut" 


960 IF IHM AND KIl*3 THEN 980 

970 IF INTIRNDI-TINEItTBMOI THEN RE 

TURN 

980 NMtl S0UND6,» : S0UND7, 7;S0UND8, 16: 
SOUND9,16:SOUND10,16:SOUND12,96:SOUND1 


F,BF,B7,lD,lE,4B,67,2t,AA,CA,EA,BA,FA, 

74,FC,BC,ED,DC,F4,B8,BB,F3,E7 

133» ' - VICTORIA NAVE - 

134» COLOR 6,14,14¡SCREEN 3 

1330 DRAN"BH30,3»":PRINTI1,"LO HAS" 

136» DRAN"BH20, 1»»":PRINT#1, "LOGRADO" 


498 DRAH "BN 1 85 , 159* : PR INTt 1 , "RECORD:" 

S08 DRAN"B«195,165"iRRINTIí,RP 

510 ' - BUCLE PRINCIPAL - 

520 GOSUB 550:6OSUB 750¡6OSUB 4001GOSU 

6 "6B:G0SUE 910:GOSUB 630:GOSUB 1110 

530 GOTO 528 


3,01 

990 FOR ZM-30 TO 183 STEP 20 
1000 PUT SPRITE 4 1 IHM,ZH),3,4 
1010 IF HM)l-!4 AND HN<1+14 AND ZM)160 
AND ZH<174 THEN 1070 
1020 GOSUB 350:GOSUB 750¡GOSUB 600:GOS 
UB 918 


13B» FOR M TO 2»»»:NE1T 
139» CLOSE:GOTO 2» 

14U-CLS:BEEP:PRINT" INSTUC 
C I 0 N E S":PRINT:PR1NT 
142» BEEPiPRINT" El eonstruo volador 


540 ' - SUBRUTINA DE (10V. NAVE - 

350 S-STICKI0) OR STICKIII 

560 IF 5=3 OR S=2 OR S«4 THEN 1«1»4 

530 RETUPN 

590 ' - SUBRUTINA IMPRIME SPRITES - 
600 PUT SPRITE 0,(1,160), 15,0 
610 PUT SPRITE 1,(1,1741,9,1 
620 PUT BPRITE 2, («1,30) ,5,2 
630 RETURN 

640 ' - SUBRUTINA DISPARO NAVE - 

630 IF (STM6I1) OR STRIG(0I)O-1 THEN 


1030 NEIT ZH 

1040 PUT SPRITE 4,(255,1901,10,4 

1070 VD»-LEFT«IVD«,C):SOUND 6,15sS0UND 
7,7:S0UND B,16:S0UND 9,16:S0UND 10,16 
:SOUND 12,56¡S0UND 13,0:PUT SPRITE 4,1 
255,191), 10,4:GOSUB 81» 
1088 IF C=0 THEN BEEP|PLAY"04C803B16B- 
16A16A-16G166-16F16E16E-16D16D-16C1602 
B16B-16A16A-16G166-14F16E16E-16DI6D-16 


143» BEEP:PRINT"i intuito dlltruir ti 
randote tro:oi" 

144» BEEP:PRINT"dl HtNritOl espacial 
h. P.r. que" 

145» BEEP:PRINT"c»n M su itaqui debe 

1460 BEEP:PRINT"cosa que solo lograrís 

1470 BEEP:PRINT"25.»«0 Ptos.":PRINT 
14B0 BEEPiPRINT" Eipiezas ll pirtidl 


RETURN 

660 FN=1;BEEP 

670 FOR 11=154 TO 0 STEP -21 
680 PUT SPRITE 3, (FR,H),I,3 
690 IF N<43 AND r>15>!9 AND FN*14>11M 
AND FNU1*14 THEN GOSUB 790 
700 GOSUB 551Í60SUS 75Í:G0SUB 600:GOSU 


C":FORP»lTO1600¡NElTP¡CLOSE01i6OTO 20 
1090 C=C-1:RETURN 

1100 ' - SUB. RECORD.V. EITRA Y FIN 

1110 IF PT>RP THEN RP=PT 

1120 IF PD'IMII AND F«» THEN VDMVDt 

♦V:C«W:F.l:PLAr07CE6","04CE6","02 

CEG" 

1130 IF PT=>23000 THEN 1340 


1490 BEEP:PRINT'reserva, y se ti dtri 
1500 BEEP:PRINT"consigas 10.000 Ptos." 
1510 BEEPiPRINT' Cada vez que le des 
1520 BEEP:PRINT-ionstruo se te darán 2 


í 910 

710 NEXT H 

720 PUT SPRITE 3,(235,1901,10,3 
730 RETURN 

740 ' - SUB, MARGENE? NAVE - 
750 IF «II THEN X»lí 
760 IF 1)164 THEN 1.164 
770 RETURN 

780 ' - SUBRUTINA IMPACTO KRANUC - 
79Í PT«PTMI»:PUT SPRITE 2,(200,1701,1 
a, 2: GOSUB B10:GOSUB 350: GOSUB 75»:60SU 
B 600: RETURN 


1140 RETURN 

1150 ' - DISTINTOS NIVELES - 
1160 IF NB'2 THEN TB»TB-liVH=VH>2 
1170 IF NB=3 THEN TB=TB-2¡VH=VM*4 
1180 IF NB-4 THEN TB=TB-3:VH=Vh>6 
1190 IF N6=3 THEN TB=T8-4:VH=VH*B 
1200 IF NB'6 THEN TB«T8-5iVH«VH>lf 
1210 IF NB=7 THEN TB=TB-6¡ VM-VH+12 
1220 IF NB=8 THEN T8=TB-7:VN=VM>14 
1230 IF NB=8 THEN TB=TB-B¡VH=VH*14 
1240 IF NB=9 THEN TB=TB-9t VH-VP1+18 
1230 IF NB'll THEN TB-TB-H:VM-VH*3» 


00 Ptos. y ti" . . 

153» BEEP:PRINT"le das en un lado 1«0 

Ptos.":PRINT 

1540 BEEP:PR1NT" Puedes jugar con cur 

1330 BEEP:PRINT"iando en el Port-l." 
1560 BEEP: BEEP: BEEP: BEEPiPRINT: PRINT: P 
RINT" ( Pulsa una tecla. )"iBEE 

1570 IF 1NKEY*=" THEN 1570 
1580 GOTO 20 


800 ' - SUB, ACTUALIZA MARCADOR - 
810 LINE(195,25)-(2S5,35I,10,BF 
820 DRAN"BM193,25"¡PRINTI1,USIN6"IHII 
l'lfl 


1260 RETURN 

1270 ' - DATAS SPRITES - 

1280 DATA 3,4,8,10,10,23,27,3F,3F,3C,3 


Test de listado—™ 


830 LINEI195, 651-1253,75), 10.BF 
840 DRAN"BN195,63":PRINTI1,NB 
B50 LINE(195,125)-(235,135I,10,BF 
860 DRAN'BN195,12S":PRINT<1,VD« 
870 LINE(190,160)-(255,191),1I,BF 
B80 DRAN"BM195,163":PRINTI1,RP 
890 RETURN 

900 ' - SUB, MARGENES KRAMUC - 


B,67,7F,7C,FC,E3,C0,20 ) 10,8,B,C4,E4,FC 

,FC 1 3C,DC,E6,FE,3E,3F,C7 

1290 DATA 3,6,1C,1B,36,3C,3C,3C,3E,1E, 

7,3,3,1, 0,1, C0,60,3B,18,1C,3C,3C,3C,7C 

,78,E»,C»,C»,»,B»,» 

130» DATA 62,61, 7F,23,73,73,FE,FD,FF,B 
8,55,2E,3F,1F,E7,CA,41,B6,FE,C4,AE,CE, 
7F,BF,FF,BB,36,EC,FC,FB,F7,AB 


1 - 58 20 - 91 9» - 32 161 - 94 

2 - 58 38 -127 100 - 36 170 -213 

3 - 58 48 -219 110 - 40 180 -133 

4 - 38 58 - 25 128 - 76 190 -133 
3 - 58 60 - 85 130 - 25 200 -137 
6 - 5B 70 - 69 140 - 78 218 -139 
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Monitor al díí 



TERMINATOR 

Un joystick muy explosivo 



TERMINATOR es el revolucio- 
nario joystick que hace su apari- 
ción en el campo MSX. Su es- 
pectacular fisonomía se combina con 
una excelente comodidad y facilidad 

TERMINATOR es aparentemente 
una granada de mano; pero de cerca es 
el joystick que te permitirá batir todos 
los récords en tus videojuegos. 

Puede utilizarse con una sola mano, 
gracias a su original diseño, y al contro- 
lar la dirección con un solo dedo se ob- 
tiene una gran precisión y comodidad. 
Puedes estar horas y horas jugando : ' 



as (ugando sin 
:io habitual de 
e precisan de las dos 



Diseñado y fabricado en 1 
TERMINATOR tiene una 



bífidad y 1,50 metros de cable, para n 
quedarse "pegado" al ordenador. 

TERMINATOR está importado 
distribuido por: 
ZAZA SOFT 

Pje. Josep Lloverás, 5. Atico D 
08021 Barcelona 
Tlf.: (93) 417 69 Z5 



LA NORMA MSX, 
EN 



Las más importantes compañías 
de hardware y software en MSX, 
han anunciado su participación 
en la próxima celebración de la edición 
número 25 de Sonimag. Estas empre- 
sas, presentarán sus productos actua- 

algunas novedades que en 

ximo número destacare- 



Ies, así co 



TERMINATOR, el 



icr joystick explosivo pm los MSX. 




mos. Las compañías que han confirma- 

Soft, Discovery Informatic, Idealogi 
S.A., Mind Games, Philips Iber~ 
Sanyo España, Sony España y S. 



EXCELENTES RELACIONES 
ENTRE MSX CLUB Y ASCII 
CORPORATION 

Asai 

ASCII CORPORATION 



„en (Sonimag), el dire> 

.r internacional de ASCII Corpora- 
m, Mister Frank Berberich, acaba de 
íunciarnos su visita a Barcelona. Du- 
mte su estancia en la ciudad condal, 
íster Berberich aprovechará la oca- 
ón para conocer nuestras instalacio- 



nantiene con ASCII Corpora 
padres de la gran norma están 
X. El viaje de míster Berbe 
nmarca dentro de la nueva po 



ASTERIXYLAPOCION 
MAGICA 

Nuevos videojuegos 

de Rene 



interesante juego, basado en las ave 
turas de estos personajes. En la par 
superior de la pantalla se representí 
las caras de ASSURANCETORTX y < 
OBELIX, el objeto que esté transpo 



s, que quieren 
.der E&ficii 



Afra^ US de C be n °empr 
rescatarlo. 





SUPERRAMBO ESPECIAL 



Un super juego para este o 



RAMBO ataca de nuevo. El im- 
parable ídolo americano ha 
reemprendido sus cacerías de 
"chinos" por todo el oeste «siátkb Sua 
correrías no sólo han acabado con la 
mitad del ejército vietnamita, sino que 
han arrasado profundamente las filas 
de programadores de Konami. 

Para intentar calmar los ánimos de 
nuestro imparable héroe en 
irrupción en su sede central, KONÁ- 
MI ha lanzado un nuevo MegaROM, 
con una calidad que haría sentarse ante 



la animación más espectaculares. 

No por nada está ya, al poco de su 
aparición, en el número uno de todos 
los Hit Parade europeos. En este es- 



mos un superpóster con el mapa de 

"aréísT Pos°ción 8 d°e "odasTas amas' 
bases enemigas, así como todos los ob- 
jetos y flores que componen el paisaje 
de este juego. 

No te lo dejes escapar, el nuevo Me- 
gaRomde KONAMI para que pases 



CP/M PLUS PARA MSX-2 



En contacto con la empresa ale- 
mana RVS Datentechnick se nos 
ha informado de la aparición de 
un nuevo sistema operativo para los 
MSX de segunda generación. Se trata 
de CP/M Plus. 

Este sistema operativo no es más que 

¡ivo CP/M (verstón^ÓT.' EnTstTver- 
sión CP/M Plus ha mejorado notable- 

tiendo un sistema de ayuda al usuario, 
protección por contraseña de discos y 
ficheros, redireccionamiento de las en- 
tradas y salidas, búsqueda por PATHS 
y otras muchas opciones que hasta aho- 
ra sólo podían conseguirse con ordena- 
dores muy superiores (PCs con sistema 
operativo MS-DOS 2. 11 osuperior). 

Se abren ahora a los MSX cientos 
de programas profesionales como 
WordStar, dBase, Multiplan, con el ali- 
ciente adicional de que funcionarán 
más rápido que en otras máquinas, de- 
bido alespecial interfaz de pantalla que 
incorpora esta nueva versión del siste- 
ma operativo. Según informes de RVS 
este S O. accede a la pantalla 3 veces 



Además se incluyen un disco- RAM 
(de acceso instantáneo) de hasta 1 Mb 
de memoria y 61Kb de TPA para los 
programas gracias a la perfecta utiliza- 
ción de lostancos de memoria. Todo 
esto compaginado con una perfecta 
compatibilidad con el BASIC de los 



ía serie de 

= 



dor de textos (formato WordStar), un 
programa de comunicaciones emulan- 
do un terminal tipo VT52, un ensam- 
blador, un desensamblador, un linkery 
un programa de control de librerías, 
además de programas que compatibili- 
za sus ficheros con los del MSX-DOS y 
viceversa. Por último se incluye tam- 
bién un programa que permite la copia 
(sector a sector) de nuestros discos y un 
completo manual de instrucciones en 
inglés (por el m< 

Esperamos pe 

más amplio banco de 



prue¿as aceres 



' 6 1Kb de TPA para los programas de 

aplicación. 
> 120 Kb de RAM disk (ampliables a 1 



cación. 

• Cursor de diferente color al texto. 

• Teclas de función definibles. 

• Emulador de segundo drive B: 
cuando éste no está conectado. 

• Utiliza discos de simple o doble 



• Hasl 



ür5 ¿y]" 11 ™™ 
azRS-232. 



Graphics editora 



.MarceHí Miret (ZAP STUDI). 



SET, LA PALABRA 
MAGICA 



■ 1 n el capítulo anterior dimos una 
|H descripción clara y puntual so- 
I 4. Dre e ' software ("Graphics Edi- 



paso en la exploración del menú, par 
acceder a otras prestaciones que no 
abrirán las puertas del programa. 

Acceso y selección de menús 

El Graphics Editor, nos permite me 
dificar algunas de sus órdenes y selec 
cionar su modo de actuad ' 



modificai 



en forma de^lápiz volcado que se nos 

presionado el botón rojo de la esfera/ 

cera cambiándose por la paFabra 
"SET". La parte derecha del menú, al 
instante, se ve modificada, dejándonos 

Cada parte del menú, según sean los 
los elementos que se pueden modifi- 



SET y los elementos de diseño 

Cuando coincide SET con elemen- 
tos de diseño, en dicha parte del menú, 
vemos que sólo podemos modificar 
unos cuantos iconos: el lápiz transpa- 
rente, los textos;^el spray, y la forma de 

piz transparente es la de variar su inten- 
sidad de brillo. 

biar el grosor del trazo y dispersión de 



mos al generador de te 



rador o editor, nos permite elegir entre i etc.. Mediante las otras órdenes & 
varias caligrafías de textos, como son: puede variar e! tamaño de las letras, 1 
letra gótica, popster, europea, clásica, | inclinación, la separación, etc.. 




f generador de letras. 



Entrevista . 



■ 



.Por Willy Miragall. 



DINAMIC 



En poco tiempo DINAMIC ha 
conseguido un lugar de excep- 
ción entre los fabricantes de sof- 
tware para MSX. Hemos queri- 
do charlar con ellos y conocer 
un poco de la historia de este gru- 
po de jóvenes programadores. 



Para los usuarios de Spectrum de 
hace algunos años el nombre de 
DINAMIC tenía algo mágico. 
Se trataba de un grupo de jóvenes espa- 
ñoles que, con tesón y mucho trabajo, 
habían conseguido colocar sus progra- 
mas en los primeros puestos del Hit- 
Parade. 

Demostraban de este modo que los 
jóvenes programadores españoles pue- 
den competir en igualdad de condicio- 
nes con las renombradas empresas In- 
glesas de Soft, que cuentan con gran- 
des medios y enormes presupuestos. 

DINAMIC demostró que se pueden 
realizar juegos de muy buena calidad 
con sólo un ordenador y mucha pa- 
ciencia. Esa fue la clave del éxito para 
DINAMIC, ofrecer juegos y progra- 



programas ahora DINAMIC es la ma- 
yor empresa nacional dedicada a los vi- 
deojuegos, formada por un centenar de 



JTffieñ de^ljs^ori^de 



pues a la entrevista realiz; 
los componentes de este sil 



-¿Cuál fue el origen de DINAMIC? 
¿Quiénes fueron los fundadores? 
¿Cuándo comenzasteis? ¿Con qué or- 

™í o'ríg'en de DINAMIC fue el con- 



empezamos hacer juegos cada vez me- 
jores, hasta que llegó un momento en 
que pudimos venderlos. Los dos pri- 
meros programas que comercializamos 
fueron el ARTIST, un equipo de dise- 
ño, y YENGHT, una aventura gráfico- 
conversacional; la primera en español. 

¿Que quiénes fueron los fundado- 
res?, pues en principio fuimos cinco: 
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mamos como 'fech°a de conlienzoel día 
18 de mayo de 1984 que es la fecha en 

-¿Ha crecido mucho DINAMIC 
desde el momento de su creación has- 
a lo que es- hoy en día? 

¿Qué si ha crecido mucho? Pues sí, 
desde los cinco que montamos DINA- 
MIC hasta las cien personas que están 
borando con nosotros ahora la di- 



-Actualmente ¿para qué sistemas 
de ordenador trabajáis? 

Estamos trabajando para SPEC- 
TRUM, AMSTRAD, COMMODORE 
y MSX, eso a nivel de 8 bits. A nivel , ' 
trabajando ya en L . 

AMIGA,; 

-¿0"é tipo de Soft abarcáis?, ¿Sólo 
juegos, aplicaciones...? 

sólo^uegos.pÍNAMICes' 



memo otras áreas de programación 

-¿Qué criterios se utilizan para de 
finir el juego: ideas, sondeos... ? 

-Bueno principalmente ideas, aun 
que también hacemos sondeos de opi- 



tirqiuiipo dejuego prefií 
de ideas, realmente surgen a 

ue tenga la ¡dea í 
i de la program: 
icos. I-i, ' 



del 



diendo del e t 



>mbinación de 
sgran el proyec- 
o programado- 



-¿Cuáles son los pasos a seguir des- 
de la ¡dea del juego a su edición final? 

El primer paso es tener la idea 
se va a hacer? Partiendo de ese princi- 
pio, luego es reunir el equipo. En un 
programa que se trabaje por ejemplo, 
para cuatro formatos, SPECTRUM, 
AMSTRAD, COMMODORE, MSX, 
puede intervenir un equipo de alrede- 

equipo y se definen las tareas de cada 

cada parte, en qué ordenador. Una v 
que está claro el plan de trabajo se e 
piezan a hacer las primeras pruebas, _ . 
corrigen los errores, se ven todas las 
posibilidades, poco a poco se va a\ 
zando en el juego hasta que se tie 
versiones más o menos pre-definiti 



rar.A P qufya a s" 



dan haber, y sobretodo lograr el máxi- 
mo nivel de adicción del juego. Una vez 
el juego está acabado se realiza el pre- 
master, para hacer luego el master y 
editarlo. Paralelamente a todo este 
proceso, el equipo artístico ha ido dise- 
ñando primero lo que es la carátula, los 
elementos que han de intervenir para 
llamar la atención. Luego el equipo de 
diseño de las carátulas hace fotomecá- 
nica, imprenta y publicidad. Estos son 
a rasgos generales los pasos que se dan. 
-¿En qué ordenador se realizan los 

Nosotros trabajamos en principio, 
en dos máquinas, por un lado los AMS- 
TRAD 6128 y por otro lado los PC 
COMPATIBLES. A nivel de 8 bits se 
utiliza el AMSTRAD, de ahí se genera 
la versión en SPECTRUM y de SPEC- 
TRUM a MSX. La de COMMODORE 



es totalmente aparte ya que se trabaja 
«duávamente -sobre COMMODO- 
RE 64 y 128. A nivel de 16 bits se traba- 
ja en PC y de ahí se pasa a otras máqui- 

-¿Cuántas pe 



mahnente en la realización de un sólo 
programa? 

Como ya hemos comentado antes, 
para cuatro formatos vienen a trabajar 
unas veinte personas, desde programa- 
dores, diseñadores gráficos, el director 
del equipo, los diseñadores de las ma- 
quetas, el dibujante. A nivel de soporte 
de grafistas, los diseñadores de gráficos 
a nivel de papel; para un nivel de cua- 
tro formatos un equipo de veinte per- 
sonas es bastante habitual. 

-¿Qué técnica de depuración se uti- 
liza? ^ 


dan haber. Todo el mundo da sus opi- tas 
niones, las que pasan adelante se cam- anir 
bian, y las que no se dejan tal y como es- mo 
tán. Es un proceso bastante entreteni- que 
do y al que se dedica bastante tiempo. nún 
^ - Y respecto al MSX, ¿cómo os deci- rar 

Nosotros en DINAMIC empezamos 1 
en MSX un poco casi por casualidad, trev 
No pensamos que fuera un mercado sad 

de muchas posibilidades, Tasuquede Í ue É 
pronto entró un HIT BIT en la oficina 
y realmente nos viciamos todos. A par- situ 
tir de ahí empezamos a hacer versiones '° P 


iiestros juegos para MSX y las ven 

nó a seguir. Desde entonces esta 
trabajando en MSX a tope. Lo que 

remos es conseguir ser DINAMIC 
ero uno en MSX. Vamos a prepa 

bastantes cosas para Navidades a 
[ de MSX porque pensamos que es 

de programar vuestros propio 
os. Como DINAMIC nos demues 
lía a día, el software español puede 
arse en el número 1 siempre que se 
reponga. 


SENSACIONAL COH 

"GANA UN Mi 

A la vista del interés que suscitan entre nuestros lectores, los aparatos de la 
segunda generación, nuestra revista organiza un "concurso relámpago", cuyo 
premio será un MSX-2 SONY HIT BIT F9S. 

El modo de participar en este concurso no puede ser más sencillo: Durante los 
meses de julio, agosto, septiembre y octubre, aparecerán en esta revista las 
letras M, S, X y el número 2 respectivamente. Para poder entrar en el sorteo del 
aparato, deberá remitirse a esta redacción -durante todo el mes de octubre- el 
anagrama MSX2 formado con las letras aparecidas en los sucesivos números. 
El plazo para la recepción de estos programas finalizará el día 2 de noviembre 
de 1 987, y entre todos los recibidos hasta esa fecha sortearemos el fabuloso 
SONY HB-F9S MSX2. 

Nota importante: Sólo se aceptarán las letras originales. 
Las fotocopias serán automáticamente invalidadas. 


mso 
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Una nueva generación de Software Español, 



WALTER MILLER 



Una nueva empresa de software 
ha surgido en el panorama na- 
cional. Se trata de Walter Mi- 
11er, un nombre que dentro de 
poco nos será muy familiar. Co- 



artuchos. 



u 



10 de los problemas endémicc 
del software español es la esc, 
sez de buenos programadore: 



10 del software de im 
se debe, entre otras 
;z de programas desa- 



alidad y 



randes idea: 



primeros cariuchos Dos de ellos sor 
un par de divertidos juegos para lo: 
mis pequeños, los otros tres, ennuu.i 
dos dentro de la serie ORO de Waltei 
Miller son dos cartuchos de utilidade: 



DESDE LOS MAS 
PEQUEÑOS... 

Dentro de los productos que ha 
zado Walter Miller al mercado se 
cuentra una serie de programas de 
tretenimiento para los más peque 



os que los hacen muy atracti 
>s pequeños Pero ademas , 
uada dosis de dificultad hao 



roles". El juego, en ambos casos, 
as que formará un divertido dibujo 




diterem i.i entre ambos programas es el 
gráfico utilizado, correspondientes a 
conocidos "Droids" y "Ewoks" res- 



Al empezar el juego, y por unos po- 
cos segundos, se nos mostrará la panta 
Ha final. Acto seguido ésta se recubrirá 
de36 recuadros iguales. Ahora, con el 



romr^cabezas, que debemos coloca 
gar que corresponda dentro del dibujo 



indiente en la pantalla y, de 
odo, y tras sucesivos aciertos po 
I mos recomponer todo el dibujo. 



Pero evidentemente el juego no pue- 
de ser tan fácil. Todos nuestros desve- 
los por retornar la imagen a su aspecto 
original luchan contra el tiempo, ya 

^ En definitiva se trata de dos divertí- 
gráficos harán ías delicias de los más 
pequeños de la casa (aunque estamos 
seguros que no sólo ellos jugarán...) 

...A LOS MAS GRANDES 



gan aos canuenos muy útiles para 
aquellos que desarrollan programas. 
ElpnmerodeeUoses-Memor.M,. 



Software 

ller", una ampliación de memoria de 
64 Kb. Muchos de nuestros lectores di- 
rán ¿y para qué quiero una ampliación 
de memoria? Esta ampliación de me- 
moria tiene algo que la hace muy espe- 
cial. Se trata de una ampliación que 
contiene en su interior 64 Kb de RAM. 
Gracias a esto, ya que ocupa toda la 
memoria de un slot, podemos utilizarla 
paralelamente al BASIC. Es decir, po- 
demos almacenar simultáneamente 
dos programas BASIC en la memoria 
del ordenador sin necesidad de com- 
plicadas rutinas en ensamblador, basta 
para ello una sencilla instrucción OUT 
y habremos pasado de un listado al 
otro. Esto se debe a que este cartucho 
dispone de un banco de RAM en las 
mismas posiciones de memoria que la 
RAM del BASIC. Por 



loria c[ue la 



Yendo un poco más lejos, y con un 
>ar de sencillas rutinas en ensambla- 
y fácil conseguir 28 Kb para 

.liento de programas y otros 

, a datos, con lo que se puede ven- 
• el límite de 28 Kb del BASIC. 




— 

Como veis, se trata de una ampliación 
de memoria muy especial. 

ESPECIAL MSX 2 

Haciéndose eco de los problemt 
los usuarios de los ordenadores MSX 
de segunda generación, Walter Miller 
ha desarrollado un cartucho muy e 
cial, el MultiMiller. 

MultiMiller es un cartucho qui 



ibilidad obtenida 
¡ pruebas han da 
"rebeldes 



•s del 100% 
Sin embar- 



ras" deMSJ! 



MSX de 

segunda generación v todo ello sin ne- 
cesidad de POKES pseudomágicos 
que funcionan sólo en ciertos ordena- 

LA UTILIDAD GRAFICA 



El último c 
Saph^Seí 



irtucho de Walter Miller 
mentamos es "Miller 
ata de un completo pro- 



en los MSX, tanto de primera como de 
segunda generación, aunque en este 
caso sólo puede utilizarse con la resolu- 
ción de los aparatos de la primera, es 
decir, como si utilizásemos SCREEN 



, que 



de cualquier tipo de gráfico. La facili- 
dad para utilizar todos estos periféricos 
hace que la generación de gráficos pue- 

una tableta gráfica podemos "calcar" 
cualquier dibujo e introducirlo de 
forma en el ordenador. 

Todos los menús aparecen en la 
ma línea de la pantalla. En esa '. 



MlLLER 




dizar el dibujo de cualquiera 
uc csias curvas hemos de seguir el si- 
guiente proceso. En primer lugar debe- 
mos marcar el centro de la figura curva. 
A continuación, con las teclas del cur- 
sor podemos aumentar los radios hori- 
zontal y vertical hasta fijar la circunfe- 



|P^c^cX= 

Otras opciones que podemos encon- 
trar en otros menús del programa in- 
cluyen seleccionar el color del dibujo o 
del fondo, del sprite que controla el 
cursor, escribir caracteres, así como 
grabar y leer el dibujo, de cinta o disco, 
borrar la pantalla, etc. 



muy pronto ni 
m nombre en el 



SUSCRIBETE 

Suscribiéndote no voló tienes la scgiii kl.nl Je icncr lodos los meses tu 
MSX ( 'H Di; PROGRAMAS en m e.is.i sino que reeibinis 12 



BOLETIN DE 


SUSCRIPCION MSX CL 


UB DE 


PROGRAMAS I 




Nombre v apellidos 


Calle 






.... N.° 






Provir 







IWu suscribirme por iUv números a I > w MSX < II B DI l'ROC, RAMAS i natnr del numero 
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Programación M 



I Roni Van Ginkel M 



PROGRAMACION 
ESTRUCTURADA 



trol de flujo de un programa, i . 
solución de problemas median- 
te refinamientos sucesivos, aná- 



DCTtSSsttrsE 
programa son la selectividad y 



ipetición en la ejecución de senten- 



cional) r 



- Una condición cuyi 
prueba o pregunta. 

- Un grupo de senten< 

- Un segundo grupo c 



Una\ 



epettcion y condicio- 
os a describir las prin- 



WHILE 

* Sentencia WHILE: 

Hacer mientras grupo de condicio- 



tm grupo se 
al WHILE. 

Traducido a 
Pascal sería: 



SENTENCIA 1; 



SENTENCIA N: 
end; 

Esta sentencia de control se ejecuta- 
rá mientras CONTADOR sea menor 
que diez. La comparación de si CON- 
TADOR es menor que diez la hace an- 



Es igual a la instrucción anterior, 
solo que el grupo de instrucciones se 
repite por lo menos una vez, ya que 
mira la condición de verificación des- 
pués de ejecutadas las instrucciones. 

Un ejemplo utilizando el Pascal se- 



SENTENCI 



si grupo de o 



de condiciones se verifican 



grupo de 

fin grupo 

canias condiciones: 



■rapo de sentencias que verifi- 



to verifican las condiciones hacer; 
segundo grupo de sentencias; 
fin grupo de s 



SENTENCIA 1; 



SENTENCIA M; 



CASE 

* Sentencia CASE: 



La selección de una de estas alterna- 
tivas se hace mediante un selector (que 
suelen ser de tipo numérico) y varios 
grupos de sentencias etiquetadas por 
una constante del tipo del selector. 

La sentencia CASE selecciona para 
su ejecución aquel grupo de sentencias 
cuya etiqueta sea igual al valor actual 
del selector. Si no existe la etiqueta co- 
rrespondiente, el efecto es indefinido. 
Una vez ejecutado el grupo de senten- 
cias, el control del programa pasa al fi- 
nal de la sentencia CASE. 

Su formato general es: 

caso SELECTOR sea igual a: 

ETIQUETA 1: hacer grupo de sen- 
fin grupo de sentencias ETIQUETA 1 



ETIQUETAN: 
fin grupo de sentencias ETIQUETA N 
Aplicado al Pascal sería: 

case DIA of 

DOM: SENTENCIA 1; 
JUE: SENTENCIA 5; 



En Pascal el número de sentencias 
por etiquetas es solo de una. 

En Basic, este tipo de instrucción se 
podría ejecutar con un ON N 



Para variable de control=valor ini- 
cial hasta valor final. 

Incrementando o decrementando 
N unidades la variable de control ha- 



J|S^MdowntoNdo 
SENTENCIAN; 



GOTO 

Sentencia GOTO: 
_s un salto incondicional hacia la 
parte del programa especificada en la 
etiqueta que sigue al GOTO. Es la 
sentencia menos utilizada por hacer el 
programa altamente ilegible además 

Esta sentencia se utiliza muchísimo 
en Basic MSX (demostrando así que 
no es del todo un lenguaje estructura- 
do), por eso vamos a poner un ejem- 
plo utilizando este lenguaje: 

10R=INT(RND(1)*10)+1 
20 INPUT"Un número (de 1 a 10)"; A 
30 IF A<R THEN GOTO 70 
10 IF A< R THEN GOTO 90 
60PRINT"PREMIO !!!!": END 
70 PRINT"Mayor ..." 
30 GOTO 20 
90 PRINT'Menor ..." 
100 GOTO 20 

Con esto, ya hemos finalizado las 
sentencias de control, empezamos aho- 
ra con la resolución de problemas me- 



REFINAMIENTO SUCESIVO 

El concepto de refinamiento sucesi- 
vo se basa en la famosa frase "divide y 



vencerás", que traducido a nuestro 
tema viene a decir que hay que desglo- 
sar el problema en varios problemas 
menores (es decir, si queremos hacer 



partes, cada una de las cuales se ei 
cargue de una tarea especifica, p.e. 

tos, tenemos que desglosarlo en haci 
un programa que lea el teclado, ott 



Una definición más completa del re- 
fino progresivo nos la dará Niklaus 
Wirth: 



detallada posible del p 
. el 1). Se descompone en va 
problemas que serán más o n 



descomposición Nivel 2. Volvemos a 
aplicar este enfoque simple a cada uno 
de los subproblemas, con ello puede 



el lenguaje en que se programe, si lo es, 
se escribe y este subproblema ya está 
resuelto; pero si la solución de un sub- 
problema no es trivial, entonces le apli- 
él el refino progresivo o des- 
que ahora será el Nivel 3, 

De esta forma si el problema inicial a 
resolver era muy complejo, podemos 
vernos obligados a llegar a un nivel N 
hasta tener todos los subproblemas de- 
rivado triviales o inmediatos. 

El último punto específico sobre la 
programación estructurada es el análi-' 
sis algorítmico, el cual pasamos segui- 
damente a describir: Una parte funda- 
mental es la modularidad y estructura- 
ción del programa. 

MODULARIDAD 



Todo program 




S u. la u c n las particularidades de 
cada lenguaje para unlversalizar el al- 
goritmo del programa y poder aplicar- 
lo a cualquier lenguaje estructural. 



LAS YIDEOVEFTUEAS!! 



Conviértete en el 
mago que debe destruir 
el hechizo del castillo 
diabólico por sólo 800 
ptas., (las mejor em- 
pleadas de este verano). 

Una apasionante vi- 
deojuego que une a sus 
excelentes gráficos esos 
elementos de acción e 
intriga que hacen impo- 
sible "despegarse" de la 
pantalla del monitor. 
¡¡Pídelo antes de que se 
agote!! 



SI Importe de mi pedido lo hago efe 
ivo mediante: 

] Cheque adjunto a nombre de: 
I4ANHATTAN TRAUSPER, SA. 
I/RocayBatlle, 10-12, bajos. 
16023 Barcelona 



Programación, 



NO ES UN JUEGO DE "MARCIANOS" 

NO ES UN JUEGO DE / 

NO ES UN PROGRAMA I 

Es... ¡iLOTO! 




Para finalizar y con algo que no está 
precisamente relacionado muy directa- 
mente con la programación estructura- 
da, procederemos a citar algunas nor- 
mas y consejos a seguir a la hora de ha- 
cer un programa en Basic, los cuales 
permitirán programar con mayor 



lichas normí 

CONSEJOS EN BASIC 



,TJ: Bucles FOR NEXT, se suelen 
utilizar en este orden. 
-N: Se suele utilizar como contador 

(de la forma N=N+1). 
-X,Y: Sirven para representar la posi- 
ción X e Y de un Sprite o simi- 

-R: Para adjudicar un valor aleatorio 

de la forma R=INT(RNI)i 1 1 i i 
-D: Se usa para leer el STICK, de la 
forma D=STICK(0). 



riahics 



jrama preciséis de una variable, 
impezáis con coger la primera (a 
10 ser que correspondan a las an- 
es mencionadas, en cuyo caso co- 
léis la adecuada), y ponéis al lado 
le la variable para que la utilizáis, 



er las variables libres y para 
'as ocupadas, lo mis- 
in las variables alfa- 




C$- Dirección. Se er 



•a 40. 



10 INPUT"NOMBRE:";A$ 
20 INPUT"APELLIDO:";B$ 
30 INPUT"TELEFONO:";A 
40 INPUT"DIRECCION:";C$ 
50 INPUT"EDAD:";B 
60 INPUT-NUMERO DE HERMA- 
NOS:"^ 

70 PRINT"Te llamas"; A$;" "; B$;", 
tienes"; B; "años, sois"; C + l; 
"hermanos, y vives en ";C$;", 
Tel."; A 
80 END 

*Si queréis dar más velocidad a un 
programa, poned DEFINT A-Z al 
principio del programa (en caso de uti- 
lizar alguna variable que pueda tener 
un valor muy alto, ponéis algo parecido 
a DEFINT A-F, H-Z para sacar la 
G). También se puede usar el signo % 
después de la variable, pero ocupa más 
memoria, hace el listado poco estético 
y puede ser origen de errores por haber 
omitido el % en alguna variable, de 
manera que no es recomendado su uso. 

* Para poder hacer el listado mucho 
más claro, al poner el REM, ponedlo 
con un " '" en vez de la palabra REM, y 
seguidlo del carácter CHR$(219) 
(GRAPH-I-P) repetido cuantas veces 
se quiera (cuanta más importancia ten- 
ga, más " tacas"), ya que este carácter se 
ve fácilmente al hacer un LIST del pro- 
grama. Después de las "tacas" ponéis 
de qué trata lo que viene a continua- 
ción del REM. 

* A la hora de hacer un GOTO o un 
GOSUB, procurad que no lo haga a 
una línea donde haya un REM, ya que 
al finalizar el programa puede que os 
quedéis cortos de memoria, teniendo 
que quitar las líneas de REM (o simple- 



GOTO? 



tendréis L]i 

ilosG' 



meros de líneas por ya no existir los nú- 
meros a los que ellos saltaban. 

* Y como último consejo, aprove- 
chad la ventaja que nos ofrecen las te- 
clas de función, p.e. al pasar un progra- 
ma, si vemos que una palabra se repite 
mucho (DATA, etc.), ponemos KEY 
1_, "DATA", con lo que sólo pulsando 
saldrá dicha palabra. Para los 




¡NOS APLICAMOS A SER UTILES! 

A 1KAVES DE MSX CLUB DE MAIUNC PUEDES ADQUIRIR 




